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I  INTRODUCTION  AND  SUMMARY 


This  report  discusses  the  use  of  multiple  polygons  to  represent 
probability  distributions  in  two  dimensions.  Research  was  performed  on 
computer  algorithms  to  manipulate  multipolygonal  distributions  so  that 
they  may  be  useful  in  an  ocean  surveillance  target  localization  applica¬ 
tion.  The  following  sections  discuss  the  project  objectives,  the  rele¬ 
vance  to  the  ocean  surveillance  problem,  the  algorithms  required,  the 
accomplishments  of  the  project,  and  future  research  that  is  needed. 

A.  Project  Objectives 

The  project  objectives  were  to  demonstrate  (1)  that  a  computational 
method  based  on  polygons  is  feasible,  and  (2)  that  algorithms  can  be  de¬ 
veloped  to  graphically  display  target  uncertainty  areas  for  an  ocean 
surveillance  application.  We  have  satisfied  these  objectives  by  develop¬ 
ing  a  research  computer  program  that  can  perform  many  functions  needed 
in  an  ocean  surveillance  correlation  center.  The  compu tational  methods 
we  developed  appear  feasible  for  application  programs.  Many  basic  algo¬ 
rithms  were  developed. 

B.  Ocean  Surveillance  Application 

The  research  performed  is  relevant  to  the  general  ocean  surveillance 
problem.  The  methodology  may  provide  a  new  tool  for  target  localization 
because  it  will  permit  an  efficient  representation  that  can  integrate 
reports  on  target  location. 

Target  location  reports  arise  from  a  multiplicity  of  sensors  and 
can  be  reports  of  target  contact,  no-contact,  or  other  intelligence.  In¬ 
formation  on  target  location,  including  target  contact  reports  arising 
from  surveillance,  appears  as  a  geographic  region  within  which  the  target 
lies  at  a  fixed  time  with  a  given  probability.  This  target  uncertainty 


region  usually  appears  as  a  bearing  sector,  a  bearing  and  range  sector, 
an  acoustic  convergence  zone,  an  ellipse,  or  a  transit  lane  region.  As 
the  time  of  the  report  recedes  into  the  past,  the  uncertainty  region 
moves  and  deforms.  The  movement  defines  the  target  track,  while  the  de¬ 
formation  represents  increased  positional  uncertainty. 

Negative  information  areas  appear  as  geographic  regions  within 
which  the  target  is  known  not  to  lie.  Negative  information  can  arise 
from  regions  within  which  it  is  physically  impossible  for  the  target  to 
be  located  (such  as  a  land  mass  when  the  target  is  a  ship  or  submarine) 
or  they  can  arise  from  target  no-contact  reports. 

Target  uncertainty  areas  can  be  represented  as  accurately  as  de¬ 
sired  by  polygons.  Moreover,  polygons  can  be  represented  efficiently  on 
a  digital  computer.  Thus,  polygonal  representation  of  uncertainty  areas 
offers  a  versatile  method  of  encoding  target  location  information  from 
many  sources.  The  method  permits  the  integration  of  target  location  in¬ 
formation  from  multiple  sources.  Negative  information  reports  can  easily 
be  incorporated,  and  land  masses,  choke  points,  and  islands  can  be  repre¬ 
sented. 

Two  other  methods  of  representing  uncertainty  are  also  applicable 
to  ocean  surveillance  target  localization:  the  Gaussian  and  Bayesian 
representations.  Target  localization  may  be  performed  by  assuming  a 
bivariate  normal  (Gaussian)  probability  distribution.  More  commonly, 
though,  it  is  target  tracking  (rather  than  target  localization)  that 
utilizes  the  Gaussian  representation.  Target  localization  may  also  be 
performed  with  a  Bayesian  xy-cell  representation.  This  method  is  not 
common,  but  it  is  a  powerful  approach  if  the  target  area  is  small 
enough  that  the  number  of  xy-cells  is  manageable  in  a  computer.  The 
Bayesian  method  essentially  develops  a  grid  of  xy-probabilities  for  each 
target  by  estimating  probabilities  of  receiving  a  given  report  assuming 
that  the  target  is  in  an  xy-cell.  Very  complex  probability  distributions 
can  be  handled  in  this  way. 

The  polygon  method  is  compatible  with  both  the  Gaussian  and  the 
Bayesian  methods.  Polygons  can  be  used  before  the  uncertainty  area 
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becomes  small  and  unimodal;  after  that,  the  Gaussian  method  is  more  ap¬ 
propriate.  Polygons  can  be  used  on  a  global  scale  where  the  Bayesian 
method  is  impractical  or  impossible.  In  a  global  situation  where  the 
Bayesian  method  would  take  very  large  amounts  of  computer  time  and  memory, 
the  polygon  method  would  only  use  a  modest  amount  of  computer  resources. 

It  is  in  this  sense  that  the  polygon  method  is  "computationally  efficient." 
Even  though  it  sounds  as  though  there  are  areas  of  overlap  and  competition 
between  the  Bayesian  and  polygon  methods,  there  is  actually  a  natural  way 
to  use  them  together.  This  hybrid  idea  is  discussed  in  Section  I-E. 

In  summary,  some  localization  problems  are  best  described  by  a 
Gaussian  representation,  some  by  a  Bayesian  representation,  and  some  by 
a  polygon  representation.  Polygons  appear  more  applicable  to  global 
ocean  surveillance  than  to  (1)  tracking  situations  where  Gaussian  methods 
are  preferred,  and  (2)  small-area  localization  situations  where  the 
Bayesian  method  is  feasible  and  may  be  preferred.  In  addition  to  using 
the  polygon  representation  by  itself,  there  is  an  opportunity  to  create 
hybrid  representations  that  may  prove  useful  and  cover  a  wide  range  of 
applications,  ocean  surveillance  or  otherwise. 


Algorithms  Required 


The  kinds  of  algorithms  that  are  needed  for  ocean  surveillance  ap¬ 
plication  arise  from  the  need  to  handle  positive  and  negative  informa¬ 
tion,  and  to  do  so  over  time  and  under  geographic  constraints. 


Localization  is  dynamic  and,  therefore,  prediction  algorithms  are 
needed.  The  target  polygons  must  grow  in  time  (negative  information 
polygons  shrink  in  time),  and  this  implies  the  need  for  a  velocity  un¬ 
certainty  representation. 


To  perform  in  a  Bayesian- like  way,  there  must  be  algorithms  to  cal¬ 
culate  the  geographic  likelihoods  of  several  targets  with  respect  to  a 
contact  report.  These  conditional  probabilities  can  then  be  used  in  a 
target  classification  scheme  to  associate  contact  reports  with  specific 
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targets.  The  idea  of  using  polygons  in  a  classification  methodology  is 
discussed  in  Section  I-E,  along  with  ideas  of  hybrid  representations. 

Algorithms  are  needed  to  combine  a  new  report  into  current  target 
uncertainty  areas.  New  multipolygonal  position  and  velocity  distributions 
are  thereby  created . 

Finally,  algorithms  are  needed  to  allow  uncertainty  areas  to  inter¬ 
act  with  land.  Uncertainty  areas  must  deform  and  split  apart  to  repre¬ 
sent  the  uncertain  behavior  of  a  target  as  it  maneuvers  along  coastal 
areas,  through  straits,  or  around  islands. 

D.  Project  Accomplishments 

A  research  computer  program  was  developed.  It  was  used  to  investi¬ 
gate  polygonal  location-uncertainty  representation  and  to  test  algorithms 
that  use  this  uncertainty  representation.  The  basic  idea  in  representing 
location  uncertainty  is  to  build  up  a  probability  density  function  of 
xy-points  by  imagining  polygons  of  various  heights  (polyhedra)  being 
stacked  on  top  of  each  other.  In  this  way,  a  wide  variety  of  density 
functions  can  be  synthesized.  This  "multipolygon"  idea  was  implemented 
and  used  to  represent  target  position  uncertainty. 

One  of  the  first  algorithms  developed  was  a  subroutine  to  calculate 
the  mean  and  covariance  matrix  of  a  general  multipolygonal  distribution. 
These  distribution  statistics  were  then  used  to  display  the  associated 
error  ellipse,  and  were  also  used  as  input  to  other  algorithms.  The 
"statistics  algorithm"  proved  to  be  quite  general  in  the  sense  that  it 
could  be  used  on  distributions  defined  in  a  variety  of  ways. 

A  "set-operation  algorithm"  was  implemented;  it  accepts  two  arbi¬ 
trary  polygons  and  returns  the  polygon  (or  polygons)  of  intersection, 
union,  or  negative  intersection.  We  did  not  develop  this  algorithm  but 
used  a  subroutine  package  developed  by  Oak  Ridge  National  Laboratory1 
and  adapted  it  to  our  CDC  6400  computer.  This  basic  set-operation 


References  are  listed  at  the  end  of  this  report. 
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algorithm  was  used  by  other  algorithms  to  perform  data  association,  pre¬ 
diction,  and  land  interaction  functions.  Set-operations  (intersection, 
union,  and  negative  intersection)  were  the  basic  tools  in  developing 
polygon  algorithms  within  an  ocean  surveillance  context. 

One  application  of  set  operations  was  an  algorithm  for  calculating 
the  multipolygonal  distribution  that  resulted  from  an  intersection  or 
negative  intersection  of  two  other  multipolygonal  distributions.  This 
"fusion  algorithm"  can  be  used  to  fuse  (integrate,  meld,  filter)  positive 
or  negative  location  information  with  a  target  distribution.  Fusion  is 
carried  out  by  intersections  and  negative  intersections.  The  union  of 
two  probability  distributions  does  not  seem  to  have  a  natural  application 
in  the  ocean  surveillance  context. 

An  algorithm  was  developed  to  calculate  the  conditional  probability 
that  a  location  report  originated  from  a  particular  target.  Both  the 
reported  location  and  the  target  location  are  represented  by  multipoly¬ 
gonal  probability  distributions.  The  conditional  probability  is  the 
likelihood  that  a  particular  target  is  associated  with  the  report,  based 
only  on  the  location  information  in  the  report.  Likelihoods  based  on 
other  information  in  the  report  (received  radar  characteristics,  for 
example)  are  multiplied  times  the  above  likelihood  to  produce  a  total 
target  likelihood  with  respect  to  all  of  the  information  in  the  report. 
Total  likelihood  for  each  candidate  target  is  calculated,  and  the  target 
with  the  maximum  likelihood  would  be  associated  with  the  report.  In 
summary,  the  "conditional  probability  algorithm"  can  be  used  to  calculate 
target  likelihoods  with  respect  to  location  reports.  In  terms  of  ocean 
surveillance  parlance,8  the  algorithm  is  used  for  "report-to-track"  cor¬ 
relation.  The  algorithm  can  also  be  used  for  the  other  ocean  surveil¬ 
lance  functions:  report-to-repor t ,  track-to-report ,  and  track-to-track 
correlation.  Finally,  the  algorithm  can  be  used  to  calculate  other  use¬ 
ful  conditional  probabilities--for  example:  (1)  the  probability  of  find¬ 
ing  a  target,  given  a  search  distribution,  or  (2)  the  probability  of 
killing  a  target,  given  a  lethality  distribution. 
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A  "prediction  algorithm"  was  developed  to  move  target  uncertainty 
areas  in  time.  A  multipolygonal  target  location  distribution  is  assigned 
a  multipolygonal  velocity  distribution.  The  algorithm  calculates  a  new 
and  larger  location  distribution  based  on  the  time  step  and  the  velocity 
distribution.  We  believe  this  is  new  ground,  and  that  it  is  a  major 
accomplishment  of  the  project.  From  our  literature  search  and  contacts, 
there  appears  to  be  no  previous  work  on  moving  multiple  polygons  to  repre 
sent  target  location  uncertainty. 

Finally,  a  "land-interaction  algorithm"  was  developed  to  allow  tar¬ 
get  distributions  to  move  along  or  around  land  masses  such  as  coast  lines 
straits,  and  islands.  The  algorithm  was  designed  to  split  the  target 
distribution  into  two  parts  when  approaching  land.  The  probability  of 
the  direction  the  target  will  go  is  controlled  by  the  terminal  operator. 
The  land-interaction  algorithm  makes  for  a  more  realistic  display  than 
simply  having  the  target  distribution  accumulate  against  the  shore  line 
or,  worse  yet,  having  it  disappear  into  an  island  only  to  reappear  on 
the  other  side.  The  combination  of  the  prediction  algorithm  and  the  land 
interaction  algorithm  is  the  beginning  of  a  software  package  that  is  a 
visually  appealing  and  functionally  versatile  method  for  handling  posi¬ 
tive  and  negative  information  about  targets  of  uncertain  location. 

The  research  program  is  written  in  FORTRAN  IV  for  SRI's  CDC  6400 
computer.  Program  output  is  displayed  on  the  Tektronics  4025  graphics 
terminal. 

During  this  research  effort,  the  decision  was  made  to  develop  and 
implement  as  many  algorithms  as  possible  to  use  the  polygonal  location 
uncertainty  representation,  since  the  purpose  of  the  project  was  to 
demonstrate  (1)  feasibility  of  the  polygon  data  structure,  and  (2)  feasi¬ 
bility  of  developing  algorithms  which  use  this  data  structure  to  graphi¬ 
cally  display  target  uncertainty  areas.  Thus  while  the  deficiencies  of 
some  implemented  algorithms  were  recognized  and  documented,  effort  was 
directed  toward  developing  more  algorithms  rather  than  correcting  the 
deficiencies  of  existing  algorithms. 
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E. 


Future  Research 


The  current  research  has  met  the  objectives  of  the  project  but  is 
far  from  being  a  complete  software  package  that  can  be  used  on  displays 
in  an  ocean  surveillance  correlation  center.  One  area  of  future  research 
is  to  continue  building  on  the  capability  developed  so  far,  improving 
current  algorithms,  and  adding  new  ones.  Included  in  this  task  would  be 
target  classification  representation  and  report  association  research. 
Another  research  area  is  to  investigate  the  usefulness  of  a  hybrid 
Bayesian/polygon  representation  of  localization  and  classification. 

The  eventual  goal  of  the  polygon  research  is  to  produce  a  software 
package  than  can  (1)  move  target  polygons  around  on  a  map,  (2)  accept 
new  reports  containing  location  and  classification  information,  (3)  asso¬ 
ciate  the  information  with  a  target,  (4)  fuse  the  localization  informa¬ 
tion  with  the  target  polygons  to  improve  the  location  estimate,  and 
(5)  fuse  the  classification  information  with  the  target  identity  proba¬ 
bilities  to  improve  the  classif ication  estimate. 

A  more  immediate  goal  would  be  to  expand  the  current  research  com¬ 
puter  program  to  include  a  target  identity  representation,  a  classifica¬ 
tion  information  representation,  algorithms  to  associate  reports  with 
targets,  and  algorithms  to  fuse  classification  information.  In  addition, 
continued  work  on  current  algorithms  is  necessary  to  ensure  their  general 
applicability. 

Another  line  of  research  is  to  use  polygons  within  a  Bayesian  ap¬ 
proach.  The  Bayesian  method  uses  detection  and  classification  models  to 
predict  what  should  be  observed,  and  then  actual  observations  are  com¬ 
pared  to  the  prediction,  and  probabilities  of  xy-location  and  target 
identity  are  changed  in  response  to  the  observation.  The  method  can  be 
effectively  used  in  a  multisensor/multitarget  environment  so  long  as  the 
numbers  of  xy-locations  and  target  identities  do  not  combine  to  produce 
an  impossible  computational  problem  (even  for  large  computers,  computa¬ 
tional  limits  are  easily  exceeded).  The  idea,  then,  is  to  use  polygons 
to  limit  the  xy-region  in  which  the  Bayesian  calculations  take  place. 

The  goal  of  the  research  would  be  to  develop  efficient  algorithms  that 


marry  the  polygonal  representation  with  the  xy-point  representation. 
Investigation  is  needed  to  find  speedier  ways  to  do  the  Bayesian/ polygon 
hybrid  equivalent  of  association  and  fusion.  Perhaps  a  way  could  be 
found  to  let  polygonal  algorithms  preprocess  the  information  before  pass¬ 
ing  it  on  to  the  Bayesian  algorithms,  thus  saving  computation  time.  If 
successful,  the  Bayesian/polygon  hybrid  methodology  may  free  the  power¬ 
ful  Bayesian  method  from  its  major  drawback--a  massive  computational 


II  LOCATION  UNCERTAINTY  REPRESENTATION 


This  section  discusses  how  target  location  uncertainty  and  land 
masses  are  represented.  Section  II-A  covers  the  concepts  of  multipoly- 
gonal  probability  distributions.  Section  II-B  discusses  the  array  and 
indexing  scheme  we  used  to  represent  target  distributions  in  the  com¬ 
puter.  Section  II-C  discusses  the  array  and  indexing  scheme  used  to 
represent  land  masses.  It  also  describes  three  subroutines  utilized  in 
the  definition  of  distributions  and  land  masses. 

A.  Multipolygonal  Probability  Distributions 

Figure  1  shows  an  example  of  a  multipolygonal  probability  density 
function.  The  multiple  polygons  on  the  left  are  shown  as  they  appeared 
on  the  display,  and  the  figure  on  the  right  shows  how  the  resulting  proba¬ 
bility  surface  looks  in  three  dimensions.  Notice  that  the  three  polygons 
were  assigned  heights  of  1,  2,  and  -1  units.  Thus  Polygon  2  is  shown 
twice  as  high  (thick)  as  Polygon  1.  Since  Polygon  2  is  stacked  on  top 
of  Polygon  1,  the  value  of  the  density  function  within  the  boundary  of 
Polygon  2  is  1+2=3  units  (actually  this  value  is  normalized  so  that 
the  integral  of  the  density  function  over  all  xy-space  is  unity).  Poly¬ 
gons  2  and  3  are  inside  Polygon  1.  Polygon  2  is  stacked  on  top  of  Poly¬ 
gon  1  because  it  was  given  a  positive  weight.  However,  Polygon  3  cuts 
a  hole  out  of  Polygon  1  because  it  was  given  a  negative  weight.  The 
hole  goes  all  the  way  through  Polygon  1  because  Polygon  3  has  height  -1 
unit,  which  is  equal  but  opposite  to  the  height  of  Polygon  1. 

Summarizing,  Figure  1  shows  the  general  concept  of  multipolygonal 
distributions.  Polygons  are  defined  by  drawing  them  on  the  display  and 
assigning  either  a  height  value  or  a  weight  value  to  each  one.  If  height 
is  given,  then  weight  is  calculated  by  multiplying  the  given  height 
times  the  area  of  the  polygon  (weight  is  equivalent  to  volume).  The 
weights  may  be  positive  or  negative — within  the  restrictions  set  forth 


below.  Positive  weight  means  that  the  polygon  is  stacked  on  top  of  other 
polygons;  negative  weight  means  that  the  polygon  cuts  out  a  hole  in  the 
other  polygons. 


1.  Mathematical  Representation 

The  above  visual  concept  can  be  made  more  rigorous  by  a  mathe¬ 
matical  representation.  Let  Polygon  j  define  the  walls  of  a  uniform 
probability  density  function,  u^(x,y),  such  that  there  is  a  constant 
positive  probability  density  for  the  xy-coordinates  inside  Polygon  j  and 
a  zero  probability  density  for  the  xy-coordinates  outside  Polygon  j.  The 
integral  of  u^(x,y)  over  all  xy-space  is  unity. 

A  multipolygonal  probability  density  function,  f(x,y)  can  then 
be  defined  by  weighting  and  summing  several  such  uniform  density  func¬ 
tions: 


/(x,y)  Pj  uj(x>3 
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The  polygon  weights,  P.,  can  be  positive  or  negative,  but  they  are  under 
some  restriction  because  /(x,y)  cannot  be  negative  at  any  xy-coordinate. 
This  means  that  (1)  polygons  with  negative  weights  must  lie  inside  poly¬ 
gons  with  positive  weights,  and  (2)  the  sum  of  positive  heights  must  be 
equal  to  or  greater  than  the  sum  of  negative  heights  inside  those  areas 
enclosed  by  negatively  weighted  polygons.  Another  restriction  on  the 
weights  is  that  they  must  sum  to  one: 

E  pj  '  1  •  <2) 

j 

This  restriction  is  because  the  integral  of  /(x,y)  over  all  xy-space  is 
unity;  therefore,  integrating  the  uniform  density  functions  to  unity 

leaves  the  P.  to  sum  to  one. 

J 

When  all  of  the  weights,  P  ,  are  non-negative,  they  may  be 
interpreted  as  probabilities  (this  is  the  reason  for  using  the  symbol 
"P").  The  multipolygonal  probability  distribution  may  then  be  viewed  in 
the  following  manner.  Randomly  choose,  according  to  the  probabilities, 
P.,  a  polygon  from  the  set  of  all  polygons  in  the  distribution;  then  the 
target  location  is  uniformly  distributed  over  the  chosen  polygon.  This 
view  stems  from  Eq.  (1),  where  the  u^(x,y)  are  really  conditional  den¬ 
sity  functions,  conditional  on  j,  providing  that  the  P^  are  non-negative. 
Note  that  P^  is  not,  in  general,  the  probability  that  the  target  is  in¬ 
side  Polygon  j.  The  reason  is  that  polygons  may  lie  on  top  of  each  other 
and  the  density  adds  up.  Only  if  the  polygons  are  separate  (disjoint) 
may  the  P^  be  interpreted  as  containment  probabilities. 

2.  Distributions  with  Holes 

Figure  2  shows  three  ways  to  make  a  distribution  with  a  hole 
in  it.  The  methods  shown  on  the  left  and  in  the  middle  use  two  polygons, 
while  the  method  on  the  right  uses  a  single  polygon.  The  first  two 
methods  are  essentially  the  same;  in  both  cases  the  inside  polygon  is 
assigned  a  negative  weight.  In  the  first  case,  the  negative  weight  is 
the  result  of  a  negative  height  multiplied  by  a  positive  area.  We  chose 
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to  define  polygons  with  vertices  listed  in  a  clockwise  direction  as  con¬ 
taining  positive  areas.  In  the  second  case,  the  negative  weight  results 
from  a  positive  height  multiplied  by  a  negative  area  (counterclockwise 
polygon). 

The  third  method  uses  a  single  polygon  and  a  "branch  cut"  to 
define  the  hole.  The  inside  part  of  the  polygon  is  a  hole  because  of 
the  counterclockwise  sense  of  the  vertices.  The  branch  cut  is  invisible 
to  algorithms  using  the  distribution  because  the  cut  is  traversed  twice, 
once  in  one  direction,  and  once  in  the  opposite  direction.  When  there 
is  a  choice,  the  branch-cut  method  is  preferred  because  there  are  no 
negative  weights  associated  with  the  distribution. 


Computer  Representation  of  Targets 


The  computer  program  is  designed  to  accommodate  several  targets; 
each  target  is  described  by  one  position  distribution  and  one  velocity 
distribution  for  each  of  several  time  steps.  The  position  distribution 
represents  the  probability  that  the  target  is  at  various  positions  with¬ 
in  the  area  at  a  certain  time  step.  The  velocity  distribution  represent 


all  possible  positions  of  the  centroid  of  the  position  distribution  at 
the  next  time  step.  Furthermore,  each  target  distribution  (position  and 
velocity  over  time)  may  contain  several  polygons  and  each  polygon  may 
consist  of  many  vertices.  The  memory  requirement  for  this  target  descrip¬ 
tion  was  too  large  to  use  a  combinatorial  indexing  scheme.  For  example, 

9  targets,  2  spaces  (position  and  velocity  space),  5  time  steps,  10  poly¬ 
gons  per  distribution,  and  50  xy-points  per  polygon  require  9  •  2  •  5  • 

10  •  50  •  2  =  90,000  words  of  memory.  Although  not  impossible  for  a 

large  computer,  this  massive  memory  allocation  is  unnecessary  because  it 
would  be  largely  unused  in  any  particular  session  at  the  terminal.  In¬ 
stead,  we  used  index-pointers  to  define  where  polygons  start  and  stop  and 
where  their  vertices  start  and  stop. 

The  xy-coordinates  of  polygon  vertices  are  saved  in  the  arrays,  X(I) 
and  Y(I),  where  1=1,  1400.  In  other  words,  the  program  can  save  the 
coordinates  of  1400  vertices.  The  set  of  I-indices  that  start  with  IA(J) 

and  stop  with  IB(J)  define  the  vertices  of  the  J-th  polygon  (J  =  1,  200). 

The  first  xy-point  and  the  last  xy-point  of  the  J-th  polygon  are  equal 
and  describe  the  same  vertex: 

X(I1)  =  X(I2) 

Y( II)  =  Y( 12) 

where  II  =  IA(J)  and  12  =  IB(J).  This  redundance  was  convenient  because 
the  Tektronix  4025  terminal  required  the  first  and  last  points  to  be 
equal  in  order  to  display  polygons. 

The  polygons  are  numbered  from  J  =  1  to  J  =  200,  and  they  are  as¬ 
signed  to  target  distributions  by  index-pointers.  The  set  of  J-indices 
that  start  with  JA(L,M,N)  and  stop  with  JB(L,M,N)  define  the  polygons 
that  belong  to  the  L-th  space  (L  =  1  position,  L  =  2  velocity),  the  M-th 
time  step  (M  =  1,  5),  and  the  N-th  target  (N  =  1,  9). 

Summarizing  the  above  scheme,  the  distribution  parameters  position/ 
velocity  index  L,  time  step  index  M,  and  target  index  N,  determine  the 
set  of  polygons,  {j},  that  belong  to  a  particular  LMN-distribution : 
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J  =  JA(L,M,N)  to  JB(L,M,N) 


and  each  polygon  J  is  represented  as  a  set  of  indices,  {i): 

I  =  IA( J)  to  IB( J) 

and  each  index,  I,  is  associated  with  the  vertex: 

X(I),  Y(I) 

This  target-distribution  representation  takes  (2  •  5  ■  9  •  2)  +  (200  •  2) 

+  (1400  •  2)  =  3,380  words  of  memory--far  less  than  the  90,000  words  from 
before.  We  have  not  experienced  any  operating  restriction  due  to  the 
200-polygon  limit  or  the  1400-vertex  limit.  In  fact,  it  is  convenient 
to  have  available  a  large  number  of  vertices  per  polygon  (instead  of  a 
limit  of  50,  say)  because  the  set-operation  algorithm  returns  polygons 
with  an  unknown  number  of  vertices. 

The  computer  representation  of  targets  consists  of  two  parts:  the 
X(I)  and  Y(I)  vectors  of  polygon  vertices,  as  already  discussed,  and 
polygon  weights,  P(J),  which  may  be  positive  or  negative.  These  polygon 
weights  are  associated  with  target  distributions  in  exactly  the  same 
manner  as  above:  the  weights,  P(J),  starting  with  J  =  JA(L,M,N)  and 
stopping  with  J  =  JB(L,M,N),  are  associated  with  the  LMN-distribution. 

The  sum  of  P(J)  over  the  start-to-s top  set  of  J-values  is  unity. 

In  addition  to  the  arrays  needed  to  describe  and  save  multipolygonal 
probability  distributions,  the  program  also  saves  auxiliary  arrays  that 
are  useful  in  polygon  algorithms.  The  height  of  each  polygon,  H(J),  is 
saved.  The  heights  are  normalized  so  that  the  total  volume  of  the  distri¬ 
bution  is  unity.  The  centroid  of  each  polygon,  (XCEN(J),  YCEN(J)),  is 
saved  and  used  in  the  prediction  algorithm.  Statistics  of  each  (L,M,N)- 
distribution,  SE(I  +  KL)  (for  I  from  1  to  9,  and  KL  =  KE(L,M,N)) ,  are 
saved : 
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SE(1  +  KL)  is  the  mean  of  the  x  coordinates. 

SE(2  +  KL)  is  the  mean  of  the  y  coordinates. 

SE(3  +  KL)  is  the  minor  semiaxis  of  the  2a  error  ellipse. 

SE(4  -f  KL)  is  the  major  semiaxis  of  the  2a  error  ellipse. 

SE(5  +  KL)  is  sin  0. 

SE(<'  +  KL)  is  cos  0,  where  0  is  the  clockwise  angle  from  north  to 
the  major  axis. 

SE(7  +  KL)  is  the  variance  of  the  x  coordinates. 

SE(8  +  KL)  is  the  variance  of  the  y  coordinates. 

SE(9  +  KL)  is  the  covariance  of  the  x  and  y  coordinates. 

KE  is  an  array  containing  pointers  that  index  SE  as  a  function  of 
(L,M,N).  KE(L,M,N)  yields  the  index  in  SE  that  immediately 
precedes  the  statistics  of  the  distribution  (L,M,N). 

It  is  convenient  to  explain  four  variables  that  occur  frequently  in 
the  program  code,  JJ,  ILA,  JLA,  and  K1A: 

JJ  is  the  polygon  counter  for  a  specific  distribution. 

ILA  is  the  counter  of  the  number  of  vertices  stored  in  the  X  and 

Y  arrays. 

JLA  is  the  counter  of  the  number  of  polygons  stored  in  the  X  and 

Y  arrays. 

KLA  is  the  counter  of  the  number  of  statistics  stored  in  the  SE 
array. 


C.  Computer  Representation  of  Land  Masses 

The  computer  program  is  designed  to  accommodate  several  land  masses. 
Each  land  mass  is  described  by  a  polygon,  which  may  consist  of  many  ver¬ 
tices.  The  xy-coordinates  of  land  mass  vertices  are  stored,  respectively, 
in  arrays  LAX  and  LAY.  The  scheme  used  to  index  into  LAX  and  LAY  is  the 


same  as  that  used  for  the  arrays  X  and  Y.  That  is,  the  set  of  indices 
that  start  with  LIA(L)  and  stop  with  LIB(L)  define  the  vertices  of  the 
L-th  land  mass  (L  =  1,  200),  with 

LAX(LIA(L) )  =  LAX(LIB(L) ) 

LAY(LIA(L) )  =  LAY(LIB(L) )  . 

Land  masses  are  numbered  from  1  up  to  200,  and  LJB(1,1,1)  is  the  number 
of  land  ma'sses  defined  for  any  particular  session.  Table  1  gives  the 
land  mass  definition  algorithm. 

When  land  is  defined,  the  variable  LAND  is  set  to  TRUE  and  sub¬ 
routine  LANDEF  is  called.  Subroutine  LANDEF  controls  the  input  of  land. 

Land  may  be  input  from  a  properly  prepared  file  named  IAPE9,  and/or  from 
the  terminal.  Whenever  a  land  mass  is  defined  from  the  terminal  the 
rectangle  circumscribing  it  is  computed.  Thus,  for  land  mass  L: 

LN(L)  is  the  value  of  the  largest  y-coordinate. 

LE(L)  is  the  value  of  the  largest  x-coordinate. 

LS(L)  is  the  value  of  the  smallest  y-coordinate. 

LW(L)  is  the  value  of  the  smallest  x-coordinate. 

The  terminal  operator  has  the  option  of  saving  defined  land  masses  and 
circumscribing  rectangles  on  a  file  named  TAPE10. 

Certain  subroutines  are  utilized  during  the  definition  of  target 
distributions  and  land  masses.  These  are  GET,  PUT,  and  VEC.  Subroutine 
GET  allows  the  operator  to  define  target  distributions  and  land  from  the 
terminal.  Subroutine  PUT  stores  distributions  in  arrays  X  and  Y,  and 
land  masses  in  arrays  LAX  and  LAY.  Subroutine  VEC  draws  polygons. 
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Table  1 


LAND  MASS  DEFINITION  ALGORITHM 


*  *  LAND 

LAND* . F . 

WRI TE( 6, 60) 

C  ENDF I LE  6 

WR1 TE( 8, 60) 

60  FORMAT ( *DEF 1 NE  LAND  (Y  OR  N)*) 

READ!  5 ,  14)  O 
WR1TEC6.14)  Q 
WRITE (7. 14)  0 
WR1 TE( 8, 14)  O 
IFCQ.EQ.IHY)  LAND* . T . 

1F( .NOT. LAND)  GOTO  100 

CALL  MESSAGC  (  7HP0L  , 7HLANDEF  ) 

CALL  LANDEFCLAX, LAY ,  L I  A ,  LI B , L JB , LN, LE, LS, LW, XW, YW) 

WRITEC6, 28) 

WRI TE( 8, 28 ) 

WR1 TE (6, 70 ) 

C  ENDFILE  6 

70  FORMAT ( *HOW  CLOSE  SHOULD  BE  THE  DIFFERENCE  IN  AREAS  (IN  PERCENT*, 
%  *  OF  INPUT  AREA)  F10.5*) 

READ (5, 75)  CLOSE 
75  FORMAT ( FI O.  5) 

close=close/ioo. 

WR I TE ( 6 , 85 )  INC, CLOSE 
C  ENDFILE  6 

WRITEC7.85)  INC, CLOSE 
C  ENOFILE  7 

WRITE (8, 85)  INC, CLOSE 
85  FORMAT ( *  I NC=  *,011.9.*  CLOSE*  *,011.5) 

WRI TEC  6, 96)  COUNT 
C  ENDFILE  6 

WRI TEC  7, 96)  COUNT 
C  ENOFILE  7 

WRI TEC  8, 96)  COUNT 

96  FORMAT (*THE  NUMBER  OF  ITERATIONS  ALLOWED  IS  *,  13,*.*) 


SUBROUTINE  LANDEFCLAX, LAY, LI  A, LIB, LJB, LN, LE, LS  LW 
*  XW.YW)  ‘ 

LANOEF  AT  USER  OPTION  DEFINES  LAND  MASSES  BY  ACCESSING  A  LANO  FILE  ON 
UNIT  9  OR  BY  TERMINAL  INPUT 

DIMENSION  XWC 1 ),YWC 1 ), LI AC200) ,LIB(200) ,LJA< 1 , 1 , 1) ,LJB( 1  1  1) 

LOGICAL  FLAG 

REAL  LAXC 1400) , LAYC 1400) , LWt 200) , LNC200) , LEC200)  LSC200) 

DATA  LIL,LJL/0,0/,JJ,J2/0,0/ 

DATA  12/0/ 

CALL  MESSAGAC  7HLANDEF  ) 

WRI TEC  6, 7) 

WRITEC6, 7) 

7  FORMAT (»*L IN  8*) 

LJBC 1 , 1 , 1  )  *0 
FLAG* . F. 
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Table  1  (Concluded) 


WR!TE<6,  10) 

WRI TE  ( 8, 10) 

C  ENOFILE  6 

10  FORMAT ( *  USE  LAND  FILE?  !Y  OR  N)  *> 

READ ( 5 , 20 )  0 
WRI TE( 6, 20)  0 
WRITE! 7. 20)  Q 
WR I TE ( 8 , 20 )  Q 
20  FORMAT ( A1 ) 

IF(G.EQ.IHY)  100,200 
100  CONTINUE 

READ! 9)  LAX, LAY , LI  A, LI B, LJA, LJB, LW , LE, LN, LS 
FLAG* . T . 

J2*LJB( 1,1,1) 

DO  130  J»1 , J2 
I  1 *LIA( J) 

1 2=LI B( J ) 

CALL  VEC (11,12, LAX , LAY ) 

130  CONTINUE 
200  CONTINUE 

WRI TE(6, 30) 

WRI TE(8, 30) 

C  ENDFILE  6 

30  FORMAT!*  DEFINE  LAND  FROM  TERMINAL?  (Y  OR  N)*) 

READ (5, 20)  Q 
WR I TE (6, 20 )  Q 
WRI TE! 7, 20)  Q 
WRI TE! 6, 20)  O 
IF(Q.EQ.IHY)  300,400 
300  CONTINUE 

IF! FLAG)  320,325 
320  CONTINUE 
JJ*J2 

325  CONTINUE 
l MAX-99 
JJ=JJ+1 

CALL  GET ( I  MAX, XW, YW, XO , YO, R1 , R2, 01 , D2 ) 

CALL  VEC! 1 , IMAX.XW.YW) 

CALL  PUT! 1 , 1 , 1 , JJ, IMAX,XW, YW , L I A, L I B, L JA , L JB, L J , LAX , LAY, 
*  12, J2) 

CALL  MESSAGC ( 7HLANDEF  , 7HRECTAN  ) 

CALL  RECTAN! 1 , 1MAX, XW, YW, LN! LJ> , LE! LJ ) , LS ( LJ ) , LW ( LJ ) ) 
CALL  MESSAGA ( 7HLANDEF  ) 

WRI TE! 6, 40) 

C  ENDFILE  6 

WR I TE! 8 , 40 ) 

40  FORMAT! *MORE  LAND?  (Y  OR  N)*) 

READ! 5, 20)  0 
WRI TE! 6, 20)  Q 
WRI TE! 7, 20)  Q 
WRI TE(fl, 20)  Q 
I F( QEQ  1 HY )  GOTO  325 
400  CONTINUE 

WRI TE(6, 50) 

WRI TE! 8, SO) 

50  FORMAT!*  SAVE  LANO  ON  UNIT  10?  (Y  OR  N>*> 

READ! 5, 20)  Q 
WRI TE! 6, 20 )  Q 
WRI TE(7, 20)  Q 
WRI TE! 8,  20)  Q 
IF(Q.EQ.IHY)  500,600 
500  CONTINUE 

WRITE! 10)  LAX, LAY, LI  A, LIB, LJA, LJB, LW. LE, LN, LS 
ENDFILE  10 
600  CONTINUE 

CALL  MESSAGR ! 7HLANDEF  ) 

RETURN 

END 
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Ill  POLYGON  ALGORITHMS 


This  section  describes  six  polygon  algorithms  that  have  been  de¬ 
veloped,  how  they  are  implemented,  and  any  problems  associated  with 
their  implementation. 

A.  Statistics  Algorithm 

A  "statistics  algorithm"  was  developed  to  calculate  the  mean  and 
covariance  and  the  error  ellipse  of  a  multipolygonal  probability  distri¬ 
bution.  The  algorithm  can  be  used  on  multipolygonal  distributions,  in¬ 
cluding  distributions  that  have  negative  weights.  The  algorithm  calcu¬ 
lates  the  statistics  of  each  individual  polygon  and  then  forms  a  weighted 
average  over  all  the  polygons  in  the  distribution.  The  derivation  of 
the  algorithm  is  presented  in  Sections  III-A-1,  2,  and  3,  below,  and  the 
implementation  of  the  algorithm  is  presented  in  Sections  III-A-4  and  5. 


1.  Polygon  Moments 

The  algorithm  calculates  the  area  and  the  first  and  second 
moments  of  an  arbitrary  polygon.  Moments  are  defined  as: 


»/./ 


f  =  -  |  I  f  dx  dy 


(3) 


where  f  assumes  the  following  five  functional  values: 

,  2  2 
f  =  x,  y,  x  ,  y  ,  xy 


(4) 


The  region  of  integration  is  inside  a  polygon,  P,  and  the  area  of  P  is 
given  by 


A  ■  Lt  dy 


(5) 


A  polygon  may  be  thought  of  as  a  two-dimensional  probability 
distribution:  points  outside  the  polygon  have  zero  probability  density, 
and  the  points  inside  the  polygon  have  constant  probability  density  equal 
to  1/A.  Therefore,  integrating  over  the  polygon  and  dividing  by  the 
area  is  equivalent  to  integrating  over  the  probability  distribution. 

The  method  for  calculating  the  moments  is:  divide  the  polygon 
into  triangles,  find  the  area-weighted  moments  of  each  triangle,  add 
them  up,  and  then  divide  by  the  total  area.  The  legitimacy  of  this  ap¬ 
proach  is  found  in  Stokes's  Theorem,  which  relates  line  integrals  to 
surface  integrals.  For  the  two-dimensional  case,  the  theorem  may  be 
written: 


/./' 


(V  X  F)  ’  k  dx  dy 


(6) 


where  the  contour,  C,  encircles  the  area  P;  and  k  is  the  unit  vector  in 
the  z-direction.  For  example,  if  F  is  defined  as: 


f =  (0,  x3/3,  0) 


(7) 


then 


dr 


dx  dy 


(8) 


For  the  purposes  of  the  following  discussion,  the  integral  over  an  area, 
P,  is  positive  when  the  contour,  C,  is  counterclockwise,  and  the  integral 
is  negative  if  C  is  clockwise. 


Figure  3  shows  the  polygon,  P,  broken  into  triangles,  P^  P.,  P^  . 
The  line  integral  over  the  contour,  C,  is  equivalent  to  the  sum  of  line 
integrals  over  the  triangular  contours,  .  This  equivalence  can 

be  symbolically  expressed  as: 


(9) 
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FIGURE  3  A  POLYGON  BROKEN  INTO  TRIANGULAR  PARTS 


The  reason  the  three  integrals  add  up  to  the  single  integral  over  C  is 
that  the  dashed  sides  of  the  triangles  are  traversed  twice,  once  in  a 
given  direction  for  a  triangle  and  then  again  in  the  opposite  direction 
for  the  adjacent  triangle.  Thus,  the  dashed  sides  of  the  triangles  do 
not  contribute  to  the  sum;  only  the  solid  sides  contribute,  and  when 
added  together,  they  produce  the  integral  over  C.  By  Stokes's  Theorem 
the  sum  of  line  integrals  is  also  a  sum  of  area  integrals  and  can  be 
symbolically  expressed  as: 


(10) 
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Notice  that  the  integral  over  is  subtracted  because  the  contour,  C^, 
is  in  a  clockwise  direction.  Thus,  the  conclusion  is  that  the  moments 
of  a  polygon  can  be  calculated  by  a  sum  of  positive  and  negative  inte¬ 
grals  over  triangular  parts  of  a  polygon. 

An  alternative  method  for  calculating  polygon  moments  is  to 
use  Stokes's  Theorem  directly  and  integrate  around  the  perimeter  of  the 
polygon.  This  method  was  not  implemented  for  two  reasons.  First,  the 
triangle-area  method  results  in  equations  with  fewer  terms  than  the 
line-integral  method;  thus,  derivation  and  programming  are  simplified. 
Second,  the  number  of  triangles  in  a  polygon  is  two  less  than  the  number 
of  sides  of  a  polygon;  thus  the  triangle-area  method  is  slightly  faster. 
Although  the  line-integral  method  is  theoretically  more  straightforward, 
we  chose  to  derive  and  implement  the  triangle-area  method  for  the  above 
reasons. 


2.  Triangle  Moments 

The  next  task  was  to  derive  the  first  and  second  moments  of 
an  arbitrary  triangle.  The  general  equations  for  the  first  moments  and 
special  equations  for  the  x  and  y  moments  of  inertia  of  a  triangle  are 
given  in  Pearson.3  We  did  not  readily  find  a  reference  on  the  general 
equations  for  the  second  moments  of  a  triangle. 

The  derivation  uses  an  oblique  coordinate  system  as  shown  in 

* 

Figure  4.  Integration  is  over  the  rs-space  inside  the  triangle:  first 
r  is  integrated  from  0  to  R  and  then  s  is  integrated  from  0  to  C.  The 
equation  for  R  is  found  by  similarity  of  triangles: 

R  =  B( 1  -  s/C)  .  (11) 

The  moments  are  then  given  by: 


* 

In  this  derivation,  a  positive-area  triangle  has  its  points  ordered  in 
a  clockwise  direction. 
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FIGURE  4  OBLIQUE  COORDINATES  FOR  AREA  INTEGRATION 


f  = 


1 

A 


f  sin  (y-3)  dr  ds 


As  before. 


f  =  x. 


2  2 

y»  X  ,  y  ,  xy 


where  x  and  y  are  now  functions  of  r  and  s. 

The  area  of  a  triangle,  A,  is  easily  calculated  from  the 
product  of  vector  C  with  vector  B: 


A  =  (C  B  -  B  C  )/2 
x  y  x  y 


Also,  by  geometry: 


(12) 


(13) 


cross 

(14) 
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A  =  BC  sin  (y-3)/2 


(15) 


Therefore  the  moments  may  be  written: 


f 


Wc  £dr  ds 
Jo  JQ 


(16) 


The  second  moments  are  most  easily  calculated  by  using  the  identities: 


2 

x 


_2 

x 


+  Ax 


2 

+  Ay 


(17) 


xy  =  x  y  +  Ax Ay 


where  Ax  =  x  -  x,  and  Ay  =  y  -  y 

The  transformation  equations  from  rs-space  to  xy-space  are: 


x  =  x  +  r  sin  0  +  s  sin  y 

(18) 

y  =  y^  +  r  cos  (3  +  s  cos  y 

Using  these  equations,  the  second  central  moments  of  a  triangle  in  xy- 
space  can  be  written  in  terms  of  the  second  central  moments  in  rs-space; 
for  example: 

AxAy  =  B  B  Ar2/B2 

x  y 


+  (BxCy  +  CxBy)  ArAs/BC  (19) 

2  2 

+  C  C  As  /C 
x  y 


where  sin  0  =  B^/B,  etc. 

The  second  central  moments  in  rs-space  are  calculated  using 
identities  such  as: 


ArAs  =  rs  -  r  s 
24 


1 


where  the  r,s  moments  are  derived  by  integration;  for  example: 


(20) 


The  results  are: 


r 

s 

~2 

r 

~2 

s 

rs 


=  B/3 
=  C/3 

=  B2/6 

=  C2/6 

=  BC/12 


(21) 


The  first  moments  and  the  second  central  moments  for  a  triangle 
in  xy-space  are  then  computed: 

x  =  x,  +  (B  +  C  )/3 
1  xx 

y  =  y .  +  (b  +  c  )/3 

1  y  y 

Ax2  =  (B2  -  B  C  +  C2)/18  (22) 

X  X  X  X 

2  2  2 
Ay  =  (By  -  ByCy  +  Cy ) / 1 8 

A^Ay  =  [BxBy  -  (BxCy  +  CxBy)/2  +  CxCy]/18 


3.  Eigenvalues 

The  "error  ellipse"  that  corresponds  to  a  polygonal  probability 
distribution  can  be  determined  from  the  distribution's  statistics.  The 
center  of  the  ellipse  is  at  (x,y).  If  a  2-by-2  covariance  matrix,  V, 
is  defined  as: 
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2  -2 

V11  "  X 


2  — 2 

v22  =  y  -  y 


(23) 


V12  =  xy  -  X  y  =  V21 


then  the  orientation  and  principal-axis  standard  deviations  of  the  el¬ 
lipse  are  determined  by  an  eigenvalue  calculation,  as  derived  below. 


The  eigenvalue  problem  can  be  written  as: 


Vu  =  c  u 


(24) 


where  u  is  a  2-by-l  vector  and  a  is  a  scalar.  The  eigenvalues  are  de¬ 
rived  by  noting  that  the  determinant  of  the  equation  must  be  zero: 


V  -  a  1=0 


(25) 


This  quadradic  equation  yields  the  two  eigenvalues: 


Gj  -  (P  -  Q)/2 


(26) 


ct2  =  (P  +  Q)/2 


where: 


p  =  V  +  V 

11  22 


Q  -  [<vu  -  v22>2  +  4V22: 


1/2 


(27) 


The  eigenvector,  u2>  that  corresponds  to  the  larger  of  the  two  sigmas, 
a2,  is  found  by  using  one  of  the  linear  equations  implied  by: 


(V  -  o2  I)  "u"2  =  0 


(28) 


r 
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The  equation  determines  a  ratio  between  the  components  of  u  ,  and  there¬ 
fore  an  angle  can  be  calculated: 

a  =  arc  tan  [V^/Co^  -  V  )]  (29) 

where  a  is  the  angle  from  the  y  axis  to  the  long  axis  of  the  ellipse. 

4.  Mean  and  Covariance  Subroutine 

Table  2  shows  the  subroutines  that  calculate  polygon  distribu¬ 
tion  statistics.  The  input  parameters  to  subroutine  MOM  are  (1)  the 
polygon-index  limits,  J1  and  J2;  (2)  the  vectors  of  vertex-index  limits, 

IA  and  IB;  (3)  the  vector  of  polygon  vertices,  X  and  Y;  and  (4)  the 
vector  of  polygon  weights,  P.  The  output  parameters  are  (1)  the  vector 
of  polygon  heights,  H;  (2)  the  means  of  the  distribution,  EX  and  EY;  (3) 
the  variances,  EXX  and  EYY,  and  the  covariance,  EXY;  and  (4)  the  vector 
of  polygon  centroids,  XCEN  and  YCEN.  The  input  parameters  to  subroutine 
CENTRD  are  (1)  the  vector-index  limits,  II,  12,  of  the  distinct  vertices 
of  a  polygon;  and  (2)  the  vectors  of  polygon  vertices,  X  and  Y.  The  out¬ 
put  parameters  are  (1)  the  area  of  the  polygon,  A;  (2)  values  proportional 
to  the  first  moments  of  the  polygon,  AX  and  AY;  and  (3)  values  proportional 
to  the  second  moments  of  the  polygon,  AXX,  AYY,  AXY. 

In  subroutine  CENTRD,  the  loop  is  over  the  triangles  constitut¬ 
ing  the  polygon.  The  number  of  triangles,  122,  is  two  less  than  the 
number  of  polygon  vertices.  The  vectors  (BX,BY)  and  (CX,CY)  determine 
two  sides  of  the  triangle.  The  formulas  for  the  area  and  moments  of  a 
triangle  are  easily  recognized  by  referring  to  the  previous  section. 

The  triangle  moments  are  weighted  by  the  area  of  each  triangle  (which 
may  be  positive  or  negative)  and  then  summed  over  all  triangles  in  the 
polygon. 

In  subroutine  MOM,  the  loop  is  over  the  polygons  that  consti¬ 
tute  the  distribution.  MOM  calls  CENTRD  once  for  each  polygon.  When 
control  returns  to  MOM  from  CENTRD,  the  centroid  of  the  polygon  is  cal¬ 
culated;  the  x  coordinate  of  the  centroid  is  stored  in  XCEN(J),  and  the 
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Table  2 


MEAN  AND  COVARIANCE  SUBROUTINES: 
MOM  AND  CENTRD 


SUBROUTINE  MOM( J1 ,J2. lA.IB.X.Y.P.H, EX, EY . EXX, EYY , EXY , XCEN.  YCEN) 
DIMENSION  XCENf  1  ) ,  YCEN<  t),  IA(  I  ),  IB(  1  ),X1 1  ),Y(  D.Pd  I  ,H(  I  ) 
EX-EY-EXX-EYY-EXY-0 . 

DO  55  J-J1 , J2 
I  1  =  I A  (  J  ) 

I 2» IB( J ) - 1 

CALL  MESSAGC  <  7HM0M  , 7HCENTRD  ) 

CALL  CENTRDU1  ,  1 2,  X,  Y  ,  A.  AX, AY , AXX, AYY , AXY ) 

XCENI J ) -AX/A 
YCENI J ) -AY/A 
Z*P< J)/A 
EX-EX+Z-AX 
EY-EY+Z-AY 
EXX-EXX+Z-AXX 
EYY  -EYY  +Z» AYY 
EXY*EXY+Z«AXY 
H( J)«P(J)/ABS(A) 

55  CONTINUE 

EXX-EXX-EX-EX 

EYY-EYY-EY-EY 

EXY-EXY-EX-EY 

RETURN 

END 


SUBROUTINE  CENTRD ( I  1 ,  I  2 , X, Y , A, AX , AY . AXX . AY Y , AXY ) 

CENTRD  CALCULATES  THE  AREA, AND  FIRST  MOMENTS  AND  VALUES 
PROPORTIONAL  TO  THE  SECOND  MOMENTS  OF  A  POLYGON 
WHOSE  OISTINCT  VERTICES  ARE  STORED  IN  I UCALC  OUTPUT  FORMAT 
IN  XU  ) ,  Y<  I  ),  1*1  1  ,  12. 

CENTRD  IS  CALLED  BY  GOLOSEC  AND  MOM. 

DIMENSION  X( 1) , Y< 1) 

CALL  MESSAGA ( 7HCENTR0  ) 

122-12-2 

A- AX -AY -AXX- AYY* AXY-0 . 

DO  50  1-11,122 
BX-X ( 1  +  1 ) -X< I  1 ) 

BY =Y ( Itl)-Y(ll) 

CX-XI I +2) -X(  I  1  ) 

CY«Y( 1+2) -Y(  I  1  ) 

A I -0. 5- < CX-BY-BX-CY ) 

A-A+AI 

XI -X( I  1 )  +  IBX+CX ) /3 . 

YI-YU  1  )  +  (BY+CY)/3. 

AX-AX+AI -XI 
AY-AY+AI * Y I 

AXX-AXX+AI «<X! -X I  +  ( BX-BX -BX-CX+CX-CX ) / 1 8 .  ) 

AYY-AYY+A I » ( Y I «Y I +( BY -BY -BY-CY+CY-CY  )  /\ 6  .  ) 

AXY-AXY+AI »  <  X I » Y I  +  < BX-BY -0 . 5- ( BX-CY+CX-BY > +CX-CY ) / 1 8 .  ) 

50  CONT I NUE 

WRI TE( 7, 20)  A,AX,AY,AXX, AYY, AXY 
20  FORMAT < -THE  OUTPUT  OF  CENTRD  IS  «,/(5G15.5>> 

CALL  MESSAOR I 7HCENTRD  > 

RETURN 

END 
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y  coordinate  in  YCEN(J).  Then  each  area-weighted  sum  of  triangle  moments 
is  normalized  by  the  area  of  the  polygon,  weighted  by  the  P(J)  values  of 
the  polygon  (which  may  be  positive  or  negative),  and  then  summed  over  all 
polygons  in  the  distribution.  The  moments  that  result  from  the  DO-55 
loop  do  not  have  to  be  normalized  by  the  sum  of  P-weights  because  the 
P(J)  are  already  defined  so  that  they  sum  to  one.  The  heights  of  the 
polygons  are  calculated  and  saved  in  this  subroutine  because  it  proved  a 
convenient  place  to  do  so.  After  leaving  the  DO-55  loop,  the  second 
moments  are  converted  to  covariance  parameters  for  output. 

5.  Error  Ellipse  Subroutine 

Table  3  shows  the  computer  algorithm  that  performs  the  eigen¬ 
value  calculation.  The  input  parameters  are  the  covariance  terms,  EXX, 
EYY,  and  EXY.  The  output  parameters  are  the  2-sigma  values,  R1  and  R2, 
which  lie  along  the  minor  and  major  axes;  and  the  sine  and  cosine,  D1 
and  D2,  of  the  angle  from  the  y-axis  to  the  major  axis  of  the  ellipse. 

The  first  part  of  the  subroutine  takes  care  of  two  special  cases  when  the 
ellipse  is  aligned  with  the  coordinate  axis;  the  remainder  of  the  sub¬ 
routine  follows  the  previous  derivation. 

Figure  5  shows  an  example  of  a  2-sigma  error  ellipse  superim¬ 
posed  on  its  multipolygonal  probability  distribution. 

Figure  6  shows  how  a  bivariate  normal  distribution  can  be  ap¬ 
proximated  with  three  16-sided  elliptically  shaped  polygons  that  are 
stacked  on  top  of  each  other.  The  resulting  2-sigma  error  ellipse  nearly 
coincides  with  the  polygon  that  represents  the  2-sigma  ellipse  of  the 
bivariate  normal  distribution.  This  is  a  result  of  the  particular  weight¬ 
ing  scheme  used  for  the  three  polygons. 

When  a  single  elliptically  shaped  polygon  is  computed,  the  2- 
sigma  error  ellipse  almost  coincides  with  the  polygon  and  thus  the  area 
of  the  polygon  and  ellipse  are  nearly  equal.  Experience  has  shown  that 
the  area  of  the  2-sigma  error  ellipse  is  always  larger  than  the  area  of 
an  arbitrary  polygon;  therefore,  the  el lipse- to-polygon  area  ratio  is  a 
convenient  measure  of  the  ellipticity  of  a  polygon.  As  the  polygon  ap¬ 
proaches  an  elliptical  shape,  the  area  ratio  approaches  a  value  of  one. 


FIGURE  6  BIVARIATE  NORMAL  APPROXIMATION 


Set-Operation  Algorithm 


A  card  deck  of  the  IUCALC  package  (a  set  of  FORTRAN  subroutines 
that  calculate  polygon  intersections,  unions,  and  negative  intersections) 
was  obtained  from  the  Computer  Sciences  Division,  Oak  Ridge  National 
Laboratory,  Oak  Ridge,  Tennessee.1  A  copy  of  IUCALC  was  modified  in 
order  to  make  the  package  compatible  with  the  SRI  CDC  6400  computer. 


Subroutines  in  the  IUCALC  Package 


The  IUCALC  package  consists  of  eight  subroutines  and  functions 
as  shown  in  Figure  7.  These  are  briefly  described  below.  Subroutine 
IUCALC  is  the  main  routine  of  the  package.  Its  primary  function  is  to 
call  Subroutine  IUSUB1  and,  when  IUSUB1  terminates  normally,  to  call 
Subroutine  IUSUB2.  The  parameters  of  IUCALC  are  discussed  in  a  separate 
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!-►  IUSUB1 


ROUND 

SENSE 


IUCALC— I 


l-*-  IUSUB2 


PNTGET 

SEGDEF 


ENSYD2 

PNTGET 


FIGURE  7  STRUCTURE  OF  THE  IUCALC  PACKAGE 


section  below.  Subroutine  IUSUB1  generates  coordinate  points,  each  of 

which  is  the  intersection  of  a  side  of  a  polygon  with  a  line  segment  of 

a  simply  connected  chain.  (A  simply  connected  chain  is  a  sequence  of 

distinct  directed  line  segments,  e^,  e 2>  ...,  e^.  Each  ei  begins  at 

coordinate  point  (x^y^)  a°d  ends  at  coordinate  point  (xi+^,y^+^),  1  £ 

i  s  n.  (x^.y^)  and  (x^+^,y^+^)  are  called  the  endpoints  of  e^.  Other 

than  at  an  endpoint,  a  line  segment  shares  no  point  with  another  line 

segment.  The  coordinate  points  (x^y^,  (x2,y2>,  ...,  (xn+1,yn+1)  are 

distinct  with  the  exception  that  (x^.y^)  =  (xn+i  >yn+]^  is  aH°wed,  in 

which  case  the  chain  is  called  a  closed  chain  (or  a  polygon);  when 

(x,,y.)  t  (x  ,,,y  the  chain  is  called  an  open  chain.)  IUSUB1  calls 
1  i  n+1  n+1 

the  functions  SENSE  and  ROUND.  Subroutine  IUSUB2  generates  the  coordi¬ 
nate  points  of  each  resulting  polygon  or  chain.  IUSUB2  calls  the  sub¬ 
routines  SEGDEF  and  PNTGET. 


I 


tl 


Function  SENSE  determines  whether  the  vertices  of  a  polygon 
are  in  clockwise  or  counterclockwise  order.  Function  ROUND  rounds 
double  precision  numbers  to  single  precision  and  is  machine-dependent. 
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A  CDC  6400  compatible  ROUND  function  was  written  at  SRI  and  is  a  part  of 
the  IUCALC  package  operating  on  the  CDC  6400. 

Subroutine  SEGDEF  generates  a  matrix  that  defines  the  segments 
of  the  resulting  polygons  or  chains.  (A  segment  is  a  series  of  success¬ 
ive  sides  of  a  polygon  or  a  series  of  successive  line  segments  of  a 
chain,  all  of  which  must  be  entirely  inside  the  other  polygon,  or  all  of 
which  must  be  entirely  outside  the  other  polygon,  or  all  of  which  must 
be  entirely  on  the  boundary  of  the  other  polygon.)  SEODEF  calls  Subrou¬ 
tine  PNTGET  and  Function  ENSYD2. 

Subroutine  PNTGET  returns  a  certain  coordinate  point  selected 
from  among  the  coordinates  of  the  input  polygon  and  chain  and  the  calcu¬ 
lated  points  of  intersection.  Function  ENSYD2  determines  if  a  given 
point  is  inside  or  outside  a  given  polygon,  and  assumes  the  point  is  not 
on  a  boundary  of  the  polygon. 

2.  Parameters  of  Subroutine  IUCALC 

Subroutine  IUCALC  has  15  parameters.  The  first  six  parameters 
define  the  polygon  and  chain  to  be  operated  on.  In  particular,  the 
parameters  are: 

APX  The  real  array  containing  the  x  coordinates  of  polygon  A. 

APY  The  real  array  containing  the  y  coordinates  of  polygon  A. 

NQAP  The  number  of  coordinate  pairs  in  polygon  A. 

BCX  The  real  array  containing  the  x  coordinates  of  chain  B. 

BCY  The  real  array  containing  the  y  coordinates  of  chain  B. 

NOBC  The  number  of  coordinate  pairs  in  chain  B. 

KALC  The  integer  specifying  the  desired  set  operation-- 

specifically : 

KALC  =  1  Union  of  polygons  A  and  B 

KALC  =  2  Intersection  of  polygons  A  and  B 

KALC  =  3  Relative  difference  of  polygon  A  to  polygon  B 

(A  intersect  not-B) 

KALC  =  4  Relative  difference  of  polygon  B  to  polygon  A 
(B  intersect  not-A) 

KALC  =  5  Subchains  of  open  chain  B  on  the  boundary  of 
polygon  A 


KALC  =  6  Subchains  of  open  chain  B  strictly  exterior  to 
polygon  A 

KALC  =  7  Subchains  of  open  chain  B  strictly  interior  to 
polygon  A 

KALC  =  8  Subchains  of  open  chain  B  exterior  to  or  on  the 
boundary  of  polygon  A 

KALC  =  9  Subchains  of  open  chain  B  interior  to  or  on  the 
boundary  of  polygon  A. 

The  next  two  parameters  define  the  work  area.  They  are: 

WORK  The  real  array  used  as  a  work  area.  The  dimension  of  the 

array  can  be  estimated  by  the  formula 

NOAP  +  NOBC  +  6K  +  2 

where  K  is  the  number  of  points  of  intersection. 

WRKMAX  The  dimension  of  the  work  space  WORK. 

The  final  six  parameters  contain  the  results  of  the  calculations.  In 
particular,  the  parameters  are: 

RCX  The  real  array  containing  the  x  coordinates  of  the 
result  polygons  or  chains. 

RCY  The  real  array  containing  the  y  coordinates  of  the 
result  polygons  or  chains. 

NRCMAX  The  dimension  of  arrays  RCX  and  RCY. 

INORC  The  integer  array  that  contains  the  index  of  the  start 
of  each  result  polygon  or  chain  in  RCX  and  RCY,  and 
the  number  of  coordinate  pairs  in  each  result  polygon 
or  chain. 

INOMAX  The  maximum  allowed  number  of  result  polygons  or 
chains.  The  dimension  of  INORC  is  2  by  INOMAX. 

NORC  The  number  of  result  polygons  or  chains  calculated; 

or  an  error  flag  when  the  arrays  INORC,  or  RCX  and 
RCY  are  exceeded. 

3.  Interface  with  IUCALC 

It  was  convenient  to  develop  two  subroutines  to  communicate 
with  IUCALC.  Subroutine  OAK  was  developed  because  IUCALC  cannot  operate 
directly  on  the  multipolygonal  vectors,  X(I)  and  Y(I).  Rather,  IUCALC 
requires  vectors  that  describe  single  polygons.  Furthermore,  IUCALC 
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requires  only  the  vertices  of  a  polygon,  not  the  first-equals-last  re¬ 
dundancy  built  into  the  XY-representation.  Subroutine  PREIU  was  de¬ 
veloped  because  the  iterative  nature  of  two  algorithms  made  it  desirable 
to  call  IUCALC  and  transfer  the  IUCALC  result  to  one  pair  of  the  input 
arrays  with  a  single  subroutine  call. 

The  interface  subroutine  OAK  is  shown  in  Table  4.  Subroutine 
OAK  has  as  input  parameters: 

KL  The  integer  specifying  the  desired  set  operation. 

JP  The  index  defining  the  first  input  polygon 

JQ  The  index  defining  the  second  input  polygon 

LA  The  array  of  vertex-start  indices 

IB  The  array  of  vertex-stop  indices 

X  The  x-coordinates  of  all  polygons 

Y  The  y-coordinates  of  all  polygons. 

The  output  parameters  of  subroutine  OAK  are: 

RX  The  array  of  x-coordinates  of  the  resultant  polygons 

RY  The  array  of  y-coordinates  of  the  resultant  polygons 

IR  The  integer  array  that  contains  the  index  of  the  start 
of  each  resultant  polygon  and  the  number  of  vertices 
in  each  resultant  polygon 

JMAX  The  number  of  resultant  polygons  (including  zero)  or  an 
error  flag  indicating  abnormal  termination  of  processing 
by  IUCALC. 

Subroutine  OAK  first  calculates  the  number  of  vertices,  NP  and 
NQ,  in  the  two  input  polygons.  Then  pointing  indices,  IP  and  IQ,  are 
computed  and  used  in  the  DO- loops  that  copy  X  and  Y  values  into  (PX,PY) 
and  (QX,QY)  arrays  for  input  to  IUCALC. 

The  interface  subroutine  PREIU  is  shown  in  Table  4.  Subroutine 
PREIU  has  as  input  parameters: 

XW  The  array  of  x-coordinates  of  the  first  input  polygon 

YW  The  array  of  y-coordinates  of  the  first  input  polygon 

IW1  The  number  of  distinct  vertices  in  the  first  polygon 
PX  The  array  of  x-coordinates  of  the  second  input  polygon 
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Table  4 


IUCALC  INTERFACE  SUBROUTINES: 
OAK  AND  PREIU 


SUBROUTINE  OAK(KL, JP, JO, IA, I B, X , Y , RX, RY , IR, JMAX) 

DIMENSION  PX(SO) ,PY(50) , QX( 50 ) , QY ( 50)  ,  WK ( 300) , 

»  RXI1I ,RY( 1  ) ,  IRC  2,  1  )  ,  X<  1  )  ,  Y(  I  )  ,  I A( 1) ,  I B ( 1) 

NP«1B( JP)-IA(JP) 

NQ*IB( JQ)-IA( JQ) 

I P= I A<  JP) - 1 
IQ»IA( JQ) -1 
DO  127  1*1, NP 
PX<I )«X(ltlP) 

127  PY ( I )=Y( I+1P) 

DO  120  I » 1 , NQ 
QX( I )=X( l+IQ) 

120  QY ( I ) =Y( I +IQ) 

CALL  I UCALC <  PX , PY , NP , OX , QY , NQ , KL , WK , 300 , JMAX , I R , 20 , RX , RY , 200 ) 

RETURN 

ENO 


SUBROUTINE  PREIU(XW,YW, IW1 ,PX,PY,M1 , KL, IS,XS,YS, 

S  SUB. FLAG. FLAG 1 .JMAX) 

LOGICAL  FLAG. FLAG 1 

DIMENSION  XW( 1 ) , YW( 1 ) , PX < 1 ) , PY < I ) , XS (1 ) , YS( 1 ) ,WK(300) , 

S  I  S(  2,  1  ) 

PREIU  CALLS  IUCALC.  TESTS  JMAX  FOR  IUCALC  AND  CALLING  ROUTINE  ERRORS. 
THE  IUCALC  RESULT  IS  TRANSFEREO  TO  XW.YW. 

IF  ERROR  THEN  AN  APPROPRIATE  MESSAGE  IS  WRITTEN. 

SUB  CONTAINS  THE  NAME  OF  CALLING  ROUTINE. 

CALL  MESSAGA ( 7HPRE I U  ) 

FLAG* . T . 

FLAG1 * . T . 

WRITE! 7, 30)  (XW(I  ),YW(I  ),  1*1,  IW1) 

WRI TE( 7, 30)  <PX< 1 ) ,PY( 1 ) . I *1 .Ml ) 

CALL  MESSAGC ( 7HPRE I U  , 7HI UCALC  ) 

CALL  I UCALC (XW.YW, IW1 .PX.PY.MI ,KL,WK, 300, JMAX, I S. 20, XS, YS, 200) 

CALL  MESSAGA < 7HPRE I U  ) 

I F ( JMAX )  100,200,300 
100  CONTINUE 

WRI TECS, 1 5)  JMAX, SUB 
WRI TE( 7, 15)  JMAX, SUB 
C  ENDFILE  7 

15  FORMAT ( *  I UCALC  ERROR  *,13,*  OCCURS  IN  *,A7) 

WRI TEC  6, 25) 

WRI TECS, 25) 

25  FORMAT! *»L IN  7*) 

IW1 1  * IW1 +1 
XWC IW1 1 )»XWC 1 ) 

YWC IW1 1 ) *YWC 1 ) 

M) 1 *M1 +1 
PXCM1 1 )«PX( 1 ) 

PY (Ml  1 ) «PY ( 1  ) 

30  FORMAT (5(013.5,013.5)) 

CALL  VEC( 1 , IW1 1 ,XW, YW) 

CALL  VEC( 1 ,M1 1 ,PX,PY) 

FLAG* . F . 

CALL  MESSAGR ( 7HPRE I U  ) 

RETURN 

200  CONTINUE 
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Table  4  (Concluded) 


C  WR I TE( 6, 40)  SUB,JMAX 

WRI TE( 7, 40)  SUB , JMAX 

40  FORMAT ( A7, ‘RESULT  IS  THE  SAME  AS  ORIGINAL  DATA  OR  NO  RESULT  *, 
S  «EXi STS ,  *,13) 

ENDFILE  7 

RESULT  IS  THE  SAME  AS  ORIGINAL  DATA  OR  NO  RESULT  EXISTS 
FLAG1 * . F. 

CALL  MESSAGR ( 7HPRE I U  ) 

RETURN 
300  CONTINUE 
C  WR! TE( 6, 50)  JMAX 

WRI TE<  7, 50)  JMAX 
C  ENDFILE  7 

50  FORMAT ( *PRE I U  CALLS  RECOVER  *,I3> 

CALL  RECOVER ( JMAX , XS , Y S ,  IS(XW, YW,  IW) .SUB) 

CALL  MESSAGA ( 7HPRE I U  ) 

I F < JMAX.EO  O)  FLAG! * . F . 

CALL  MESSAGR (7HPRE I U  ) 

RETURN 

END 


PY  The  array  of  y-coordinates  of  the  second  input  polygon 

Ml  The  number  of  distinct  vertices  in  the  second  input  polygon 

KL  The  same  as  KL  in  OAK 

SUB  The  name  of  the  routine  calling  PREIU;  this  is  used  in  error 

messages. 


Subroutine  PREIU  has  as  output  parameters: 


XW  The  array  of  x-coordinates  of  a  selected  resultant  polygon 

YW  The  array  of  y-coordinates  of  a  selected  resultant  polygon 

IW1  The  number  of  distinct  vertices  in  the  selected  polygon 
XS  The  same  as  RX  in  OAK 

YS  The  same  as  RY  in  OAK 

IS  The  same  as  IR  in  OAK 

FLAG1  =  FALSE  The  signal  that  the  result  is  the  same  as  the 
original  data  or  no  result  exists. 

FLAG  =  FALSE  The  error  flag  that  IUCALC  has  abnormally  termi¬ 
nated  processing. 

JMAX  The  same  as  JMAX  in  OAK. 


FLAG  and  FLAG1  are  set  to  true  upon  entry  into  subroutine 
PREIU.  Then  subroutine  IUCALC  is  called.  Upon  return  from  IUCALC,  the 
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value  of  JMAX  is  evaluated.  When  JMAX  indicates  that  IUCALC  has  abnor¬ 
mally  terminated  processing,  FLAG  is  set  to  false,  error  messages  are 
written,  and  PREIU  returns.  When  JMAX  indicates  that  the  result  is  the 
same  as  the  original  data  or  no  result  exists,  FLAG1  is  set  to  false, 
messages  are  written,  and  PREIU  returns.  When  JMAX  indicates  that  one 
or  more  resultant  polygons  have  been  computed,  PREIU  calls  subroutine 
RECOVER.  Subroutine  RECOVER  searches  XS,  YS,  and  IS  in  order  to  elimi¬ 
nate  spurious  vertices  generated  by  IUCALC  and  select  a  resultant  polygon. 

The  calling  sequence  of  IUCALC  is  given  below  in  terms  of  the 
symbols  in  the  previous  section  as  compared  to  the  symbols  in  subroutines 
OAK  and  PREIU: 


Input 


IUCALC 

OAK 

PREIU 

APX 

PX 

XW 

APY 

PY 

YW 

NOAP 

NP 

IW1 

BCX 

QX 

PX 

BCY 

QY 

PY 

NOBC 

NQ 

Ml 

KALC 

KL 

KL 

WORK 

WK 

WK 

WRKMAX 

300 

300 

Examples 

of  Set 

Operations 

Figure  8  shows  examples  of 
and  B,  were  input  to  IUCALC  and  three 

•  Intersection  of  A  with  B 

•  Union  of  A  and  B,  A  +  B 

•  Negative  intersection  of 


Output 


IUCALC 

OAK 

PREIU 

NORC 

JMAX 

JMAX 

INORC 

IR 

IS 

INOMAX 

20 

20 

RCX 

RX 

XS 

RCY 

RY 

YS 

NRCMAX 

200 

200 

;et  operations.  Two  polygons,  A 
results  were  computed: 

A  *  B 

A  with  B,  A  *  B. 


The  other  negative  intersection,  B  *  A,  is  not  shown.  Notice  that  all 
of  the  set  operations  can  produce  multiple  polygons.  IUCALC  returns 
polygon  vertices  in  a  clockwise  sense;  holes  in  polygons  are  returned 
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INTERSECTION  UNION  NEGATIVE 


A  *  B  A  +  B  INTERSECTION 


FIGURE  8  POLYGON  SET  OPERATIONS 


as  polygons  with  vertices  in  a  counterclockwise  sense.  Counterclockwise 
polygons  are  always  inside  clockwise  polygons. 

C.  Fusion  Algorithm 

A  "fusion  algorithm"  was  developed  to  fuse  (integrate,  meld,  filter) 
two  probability  distributions  into  one  distribution.  Two  different  kinds 
of  fusion  are  possible,  and  they  are  mu ltipolygonal  counterparts  to  the 
intersection  and  negative  intersection  set  operations.  Thus,  a  location- 
report  distribution  can  be  fused  with  a  target  distribution  by  using 
inter  section  fusion;  and  a  negative-information  distribution  can  be  fused 
with  a  target  distribution  by  using  negative-intersection  fusion.  The 
algorithm  cannot  perform  union  fusion.  Since  it  is  not  clear  what  the 
union  distribution  represents  in  an  ocean  surveillance  context,  we  did 
not  develop  the  algorithm  (although  it  is  possible  to  do  so). 
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1.  Program  Logic 

Assume  that  a  location  report  is  described  by  a  single  polygon, 

R,  and  that  the  target  uncertainty  area,  to  which  the  report  is  associ¬ 
ated,  is  described  by  a  single  polygon,  T.  Since  the  target  is  assumed 
to  be  inside  both  polygons  R  and  T  at  the  same  time,  the  intersection  of 
the  two  polygons  must  be  used  to  define  the  target  uncertainty  region 
after  the  fusion  of  the  report.  This  single-polygon  example  is  derived 
mathematically  and  then  the  more  complicated  multipolygonal  case  is  de¬ 
duced  . 

An  appropriate  mathematical  method  for  describing  fusion  is 
the  Bayesian  method.  For  this  method,  (1)  a  likelihood  function,  g(R/x,y), 
is  defined;  (2)  a  prior  probability  function,  f(x,y/T),  is  defined;  and 
(3)  the  posterior  probability  density  (the  result  of  fusing  the  report 
and  target  distributions)  is  calculated  by  Bayes's  formula: 

f(x,y/T')  =  K  g(R/x,y)  f(x,y/T)  (30) 

where  K  is  a  normalization  constant  that  makes  the  integral  of  the 
posterior  density  over  all  xy-space  equal  to  unity. 

In  the  single-polygon  example,  the  "likelihood"  of  point  (x,y) 
with  respect  to  the  report  is  defined  to  be  a  function  that  is  propor¬ 
tional  to  the  uniform  density  function  that  is  associated  with  Polygon  R: 

g(R/x,y)  =  G  u(x,y/R)  (31) 

where  G  can  be  any  positive  constant--in  particular,  unity. 

The  "prior"  probability  density  is  the  probability  density  of 
locating  target,  T,  at  point  (x,y)  before  the  report  distribution  is 
fused  with  the  prior  distribution.  For  the  single  polygon  example,  the 
prior  density  is  just  the  uniform  density  associated  with  Polygon  T: 

f(x,y/T)  =  u(x,y/T)  .  (32) 

The  integral  of  the  prior  density  over  all  xy-space  is  unity. 
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When  Bayes's  formula,  Eq.  (30),  is  used  with  the  likelihood 
function,  Eq.  (31),  and  prior  density,  Eq.  (32),  the  result  is: 

f(x,y/T')  =  K  G  u(x,y/R)  u(x,y/T)  .  (33) 


The  product  of  the  two  uniform  densities  is  proportional  to  a  third  uni¬ 
form  density,  u(x,y/T') ,  because  the  product  density  is  positive  only 
for  those  xy-points  with  positive  density  in  both  u(x,y/R)  and  u(x,y/T). 
In  other  words,  the  resulting  uniform  distribution  is  defined  by  the 
intersection,  Tr  =  R  *  T,  and  thus  the  posterior  distribution  is  also 
defined  by  this  intersection.  For  the  single-polygon  example,  the 
Bayesian  method  produces  the  same  result  as  the  intuitive  method  of 
intersecting  two  polygons. 

The  Bayesian  methodology  can  be  extended  to  handle  the  fusion 
of  two  multipolygonal  distributions.  Assume  that  the  report,  R,  is  given 
in  terms  of  a  multipolygonal  likelihood  function: 


g(R/x,y)  =  G  V*  P(R  )  u(x,y/R . 

-L_y  J  J 


(34) 


where  G  is  a  positive  constant,  R^  represents  the  j-th  polygon  in  the 
distribution,  P(R^)  is  the  weight  of  the  j-th  polygon,  and  u(x,y/Rj)  is 
a  uniform  density  function  defined  by  the  j-th  polygon.  Assume  further 
that  the  prior  density  for  the  target,  T,  is  a  multipolygonal  density 
function: 


f(x,y/T)  =  ^  P(V  u(x>y/Tk) 


(35) 


where  T^  is  the  k-th  polygon  in  the  distribution,  Pd^)  is  the  weight 
of  the  k-th  polygon,  and  u(x,y/T,  )  is  a  uniform  density  defined  by  the 
k-th  polygon. 

By  using  Bayes's  formula,  Eq.  (30),  with  the  multipolygonal 
representations  of  the  likelihood  function,  Eq.  (34),  and  prior  density, 
Eq.  (35),  the  posterior  density  is  written: 
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f (x,y/T/)  =  KG  EE  P(Rj)  P(Tk)  u ( x , y / R j )  u(x,y/T. )  .  (36) 

j  k 

The  product  of  two  uniform  densities  is  proportional  to  a 
single  uniform  density: 


u(x,y/Rj )  u(x,y/Tk)  =  Cjk  u(x,y/R  *rk) 


where  C^k  is  a  positive  constant  of  proportionality.  C^k  is  easily  de¬ 
rived  because  at  any  xy-point  with  positive  density,  the  value  of  the 
density  product  on  the  left  must  equal  C^k  times  the  value  of  the  density 
on  the  right;  therefore, 


Cjk  =  A(Rj*V  /  C  |A<Rj>  I  |A(Tk)|]  (38) 

where  A(X)  is  defined  as  the  area  of  the  set  of  polygons,  X. 

The  area  of  a  set  of  polygons  is  the  sum  of  the  positive  areas 
(clockwise  polygons)  and  negative  areas  (counterclockwise  polygons).  Be¬ 
cause  of  an  IUCALC  convention,  the  intersection,  R.  *  T,  ,  produces  only 

J  K 

clockwise  polygons.  A  negative  intersection  also  produces  clockwise 
polygons,  but  a  union  produces  both  clockwise  and  counterclockwise  poly¬ 
gons.  The  area  of  the  set  of  polygons  resulting  from  an  intersection, 
negative  intersection,  or  union  is  always  positive. 

The  set  of  pologons  that  are  the  result  of  the  intersection, 

R.  *  T.  ,  can  be  denoted  T. ,  ,  where  n  =  1,  N.,  .  With  this  convention, 

J  k  .jkn  jk 

the  above  uniform  density  can  be  synthesized  in  terms  of  uniform  density 
functions  that  are  defined  by  single  polygons: 

uCx.y/yy  -  £  Q.kn  u(x,y/i:ta)  (39) 

n 

where  the  weights,  Qj^n»  are  defined  so  that  the  value  of  the  left  side 
is  constant  over  all  xy-points  that  have  positive  density.  Under  this 
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condition,  the  weights  must  be  proportional  to  the  areas  of  the  elemental 
polygons: 


V„  ■  A(1V ' A<  W  • 


The  denominator  is  just  the  sum  of  the  areas  over  n  =  1,  N..  . 

j  k 

Putting  the  various  pieces  together,  the  posterior  probability 
density  function  can  now  be  written  as: 

f<*,y/T'>  -  P<TjV„>  <41> 

j  k  n 

where  the  weights  are  given  by: 


P(T'  )  =  KG  P(R. )  P(T.  )  C..  Q.. 
jkn  j  k'  jk  j  kn 


Using  Eqs.  (38)  and  (40),  the  equation  for  the  weights  can  be  reduced  to 
the  following: 


pcr:ta)  -  K  G  H(Rj)  H(Ik)  A(T'kn) 


where  the  height  of  polygon  X,  H(X),  can  be  positive  or  negative,  and  is 
defined  as: 

H(X)  =  P(X)  /  |A(X) |  .  (44) 


Note  that  the  weights  have  to  be  normalized  by  the  constant  K  such  that 
they  sum  to  1  over  all  jkn-polygons. 

For  those  intersections,  *  T^,  that  have  no  resultant  poly¬ 
gons  (R.  and  T  do  not  overlap),  the  jk-elements  in  Eq.  (41)  are  skipped 
J  k 

over  and  not  recorded.  In  the  computer  program,  the  three-index  jkn-list 
is  transformed  to  a  list  based  on  a  single  index  so  that  the  representa¬ 
tion  of  f(x,y/T/)  is  similar  to  f(x,y/T),  Eq.  (35).  The  list  of  polygons 
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includes  only  those  intersection  polygons  that  are  formed  by  overlapping 
R^.  and  polygons. 

In  summary,  Eq.  (41)  describes  the  fusion  of  two  multipolygonal 
distributions.  The  polygons,  Tj^*  are  formed  by  using  the  intersection 
operation  in  IUCALC,  and  the  polygon  weights  are  computed  by  using  Eq. 
(43). 

The  preceding  discussion  was  concerned  with  the  fusion  of  posi¬ 
tive  information,  but  it  could  equally  well  be  applied  to  negative  in¬ 
formation.  The  only  difference  is  that  negative  intersections  are  used 
in  place  of  (positive)  intersections.  For  example,  if  a  report,  R,  con¬ 
sists  of  negative  information  (e.g. ,  the  target  is  not  in  Polygon  R.), 

then  the  fused  polygons  are  given  by:  R,  *  T  ,  where  R.  means  the  area 

J  R  J 

outside  Polygon  R^ .  The  intersection  produces  Polygons  Tf^n  and  the 
calculation  of  the  weights  proceeds  as  before. 


2.  Example  of  Fusion 

Figure  9  shows  an  example  in  which  a  multipolygonal  report 
distribution  is  fused  with  a  multipolygonal  target  distribution.  Assume 
that  the  report  distribution  is  given  by  Polygons  R1  and  R2,  and  that  the 
height  of  R2  equals  the  negative  height  of  R1  so  that  the  probability 
density  is  concentrated  in  a  rectangular  annulus,  as  shown  by  the  shaded 
area.  Assume  also  that  the  target  distribution  is  given  by  Polygons  T1 
and  T2  and  that  their  heights  are  also  equal  but  opposite.  The  heights 
are  given  by: 

H(R1)  =  1  /  [A(R1)  -  A(R2) ] 

H(R2)  =  -1  /  [A(R1)  -  A( R2) ]  (45) 

H(T1)  =  1  /  [A(T1)  -  A(T2) ] 

H(T2)  =  -1  /  [A(T1)  -  A(T2) ] 

where  all  of  the  areas,  A(X) ,  are  positive  values.  These  values  for 
height  are  derived  by  requiring  the  associated  weights  to  sum  to  one. 

For  example,  H(R1)  A(R1)  +  H(R2)  A(R2)  =  1. 


TARGET  T1 


FUSION 

RESULT 


FIGURE  9  INTERSECTION  FUSION  OF  TWO  DISTRIBUTIONS  WITH 
NEGATIVE  WEIGHTS 


Since  there  are  2  polygons  in  each  input  distribution,  there 
are  4  polygons  in  the  output  distribution.  These  polygons  are  denoted 
A  through  D  in  Figure  9  and  are  the  result  of  the  following  intersections 


A  =  R1  *  T1 
B  =  R2  *  T1 
C  =  R1  *  T2 
D  =  R2  *  T2 


(46) 


(43): 


The  weights  for  Polygons  A  through  D  are  found  by  using  Eq. 


P(A)  =  K  G  H(R1)  H(T1)  A(A) 
P(B)  =  K  G  H(R2)  H(T1)  A(B) 
P(C)  =  K  G  H(R1)  H(T2)  A(C) 
P(D)  =  K  G  H(R2)  H(T2)  A(D) 


(47) 


Substituting  Eq.  (45)  into  Eq.  (47),  the  weights  are  seen  to  be  propor¬ 
tional  to  the  areas: 
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(48) 


P(A)  =  Z  A(A) 

P(B)  =  -Z  A(B) 

P(C)  =  -Z  A(C) 

P(D)  =  Z  A(D) 

where  the  positive  constant,  Z,  is  the  magnitude  of  the  height  of  each 
polygon: 

Z  =  K  G  /  ( [A(R1)  -  A(R2) ]  [A(T1)  -  A(T2)])  .  (49) 

Since  the  weights  must  sum  to  one,  Z  is  also  given  by: 

Z  =  1  /  [A(A)  -  A(B)  -  A(C)  +  A(D) ]  .  (50) 

These  two  equations  for  Z  may  be  used  to  derive  the  normalization  con¬ 
stant,  K. 

Summarizing,  Polygons  A  and  D  have  positive  height,  Z,  and 
Polygons  C  and  B  have  negative  height,  -Z  (negative  polygons  are  shown 
by  dashed  lines  on  Figure  9).  Therefore,  by  stacking  the  polygons  on 
top  of  each  other,  the  probability  density  adds  and  subtracts,  and  as  a 
result,  it  is  positive  in  only  the  two  small  squares  shown  in  Figure  9. 
This  is,  of  course,  the  intuitive  answer  obtained  by  visually  analyzing 
Figure  9.  Other  cases  can  be  imagined  that  are  not  at  all  intuitive. 

Then  the  power  of  the  algorithm  comes  into  play. 

3.  Program  Code 

Table  5  shows  the  section  of  code  in  program  POL  that  controls 
the  calculation  of  multipolygonal  fusion  distributions.  The  operator 
chooses  one  of  two  fusion  options:  intersection  (KL  =  2)  or  negative 
intersection  (KL  =  4).  The  operator  also  inputs  the  indices  (L,M,N)  of 
the  "P"  report  distribution,  and  the  indices  (L,M,N2)  of  the  "Q"  target 
distribution.  The  J-limits  (JP1,JP2)  and  (JQ1,JQ2)  define  the  polygons 
in  the  P  and  Q  distributions. 

The  DO-249  loops  set  up  an  outer  product  of  P-polygons  and 
Q-polygons.  For  a  particular  pair  of  polygons,  JP  and  JQ,  the  IUCALC 
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Table  5 


FUSION  ALGORITHM 


••FUSION  (INTERSECTION,  UNION,  AND  NEGATIVE  INTERSECTION) 

230  KL*2  S0O  TO  241 
23S  KL  = 1  SGO  TO  241 

240  KL>4 

241  JP1*JA(L.M,N) 

JP2* JB( L, M, N ) 

JQ 1  * JA( L , M, N2 ) 

JQ2»JB(L,M, N2 ) 

JJ  =  0 

DO  249  JP*JP1 , JP2 
DO  249  JQ*JQ1 , JQ2 

CALL  OAK ( KL , JP, JQ.  I  A , I B , X , Y , XW , YW ,  IW, JMAX) 

I F ( JMAX ) 2S5, 249, 243 
243  HPQ=H( JP) *H( JQ) 

DO  248  JO* 1, JMAX 
10= IW< 1 , JO) 

I M= 1 W( 2, JO) 

DO  246  I *1 , IM 
XS< I >=XW< I  +  IO) 

246  YS( I ) = YW ( 1+10) 

1M= I M+1 
XSC IM)*XS( 1 ) 

YS( I M ) * YS(  1  ) 

CALL  VEC ( 1 , 1 M, XS, YS ) 

JJ*JJ+1 

CALL  PUT(L,M,N3, JJ,  IM,XS,YS.  I  A,  IB, JA, JB, J,X,Y.  I  LA, JLA) 

248  P( J ) *HPQ*AREA< XW, YW, IW, JO) 

249  CONTINUE 
N=N3 

GO  TO  183 

185  J 1 =  JA  <  L , M , N ) 

J2=JB(L,M,N) 

CALL  NORM ( J 1 , J2,P> 

186  CALL  M0MU1  ,  J2.  IA,  I  B  ,  X .  Y  ,  P ,  H .  EX ,  EY  ,  EXX ,  EY  Y  ,  EXY  ,  XCEN ,  YCEN ) 
IFCEXX.GT.O. . AND.EYY.GT.O. )  GO  TO  187 

WRI TE( 6, 23) 

C  ENDF1LE  6 

WRI TE ( 8. 25 ) 

23  FORMAT (* NEGATIVE  VARIANCE*/) 

GO  TO  100 

187  CALL  E I GEN( EXX , EYY , EXY ,R1,R2,D1,D2) 

CALL  SAVE(L,M,N.EX,EY,R1 ,R2,D1 , D2 , EXX, EYY , EXY . SE , KE , KLA ) 

I NPUT ( L , M, N ) * . T. 

WRITE(6, 28) 

WR I  TEC  8, 28) 

C  ENOFILE  6 

WRI T£(8, 28) 

28  FORMAT( «SL I N  1*> 

GO  TO  100 


package  is  called  through  the  interface  subroutine,  OAK.  JMAX  is  checked 
to  see  how  many  polygons  are  returned;  if  there  are  no  polygons,  then  a 
new  pair  of  input  polygons  is  processed.  If  there  are  resultant  polygons, 
then  the  heights  of  the  input  polygons,  JP  and  JQ,  are  found  and  multi¬ 
plied  together. 

The  DO-248  loop  is  over  each  one  of  the  new  polygons  resulting 
from  the  intersection  or  negative  intersection  of  polygons  P  and  Q. 

First,  the  vertex  points  of  the  new  polygon  are  read  into  arrays  XS  and 
YS  and  the  redundant  vertex  points  are  added.  Then,  subroutine  VEC  is 
called  to  draw  the  new  polygon  on  the  display.  Subroutine  PUT  is  called 
to  save  the  polygon  in  a  new  distribution  with  indices  (L,M,N3).  The  new 
polygon  is  the  JJ-th  polygon  in  the  distribution.  The  arrays  IA,  IB,  JA, 

JB,  X,  Y  are  updated  to  reflect  the  addition.  The  last  action  of  the 
DO- 248  loop  is  to  calculate  the  (unnormalized)  weight  of  the  new  polygon. 

All  polygon  pairs  are  processed  and  the  new  distribution  is  completed 
when  the  DO- 249  loops  are  finished. 

After  the  new  distribution  is  created,  subroutine  NORM  is 
called  to  normalize  the  weights  so  that  they  sum  to  one.  Subroutines  MOM 
and  EIGEN  are  called  to  calculate  statistical  parameters  (see  Section  III-A) 
so  that  they  may  be  saved  by  calling  subroutine  SAVE. 

D.  Conditional  Probability  Algorithm 

••w  ■».  »  •-* 

Before  using  the  fusion  algorithm,  a  decision  must  be  made  as  to 
which  target  distribution  should  be  fused  with  the  report  distribution. 

The  "conditional  probability  algorithm"  can  help  make  that  decision.  The 
idea  is  to  calculate  the  likelihood  of  each  target  distribution  with 
respect  to  the  report  distribution  and  then  choose  the  target  with  the 
maximum  likelihood.  Figure  10  illustrates  this  idea.  The  report  is  as¬ 
sociated  with  Target  A  because  its  likelihood  is  higher  than  that  of 
Target  B. 
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FIGURE  10  TARGET  LIKELIHOOD 


1.  Program  Logic 


The  conditional  probability,  g(R/T) ,  is  the  probability  of 
event  R,  given  target  T.  It  is  computed  by  finding  the  average  value  of 
the  likelihood  function,  g(R/x,y),  assuming  that  the  target  probability 
density  is  given  by  f(x,y/T).  Thus,  the  conditional  probability  is  an 
integral  over  all  xy-space: 


g( R/T) 


g(R/x,y) 


f(x,y/T)  dx  dy 


(51) 


The  multipolygonal  representations  of  g(R/x,y)  and  f(x,y/T)  were  pre¬ 
viously  given  in  Eqs.  (34)  and  (35). 

The  derivation  of  an  expression  for  g(R/T)  can  be  simplified 
by  noting  from  Eq.  (30)  that  the  above  integrand  is  just  £(x,y/T/ )/K. 
Then,  by  using  Eq.  (41),  the  xy-integration  is  simple  because  it  involves 
a  sum  of  uniform  density  functions;  the  result  is: 


/ 
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(52) 


g(R/T)  =  EEE  p<Tjk„>  1  k 

j  k  n 

This  reduces  to  the  desired  expression: 

g(R/T)  =  G  EE  H(R.)  H(Tk)  A(Rj*Tk)  (53) 

j  * 

where  G  is  a  positive  constant,  H(R^)  is  the  height  of  polygon  (as 
defined  by  Eq.  (44)),  H(T  )  is  the  height  of  polygon  T,  ,  and  A(R.*T  )  is 

K  K  J  K. 

the  total  positive  area  of  the  polygons  resulting  from  the  intersection 
of  polygons  R^  and  T^. 

For  g(R/T)  to  be  a  conditional  probability,  the  constant,  G, 
must  be  defined  such  that  g(R/x,y)  is  between  0  and  1  inclusive.  The 
function  g(R/x,y)  is  then  the  probability  of  the  event  R,  given  that 
the  target  is  at  point  (x,y).  For  example,  if  R  is  the  report  of  a  de¬ 
tection  event,  then  g(R/x,y)  is  the  probability  of  detection,  given  that 
the  target  is  at  (x,y).  If  R  is  the  report  of  a  location  measurement 
(latitude- longitude,  range,  bearing,  etc.),  then  g(R/x,y)  is  the  proba¬ 
bility  of  the  measurement  occurring,  given  that  the  target  is  at  (x,y). 


Example  of  Conditional  Probability 


The  example  in  the  previous  section  (the  rectangular  annuli, 
Figure  9)  is  continued  to  demonstrate  the  calculation  of  conditional 
probability.  Equations  (45)  and  (46)  are  substituted  into  Eq.  (53)  and 
the  result  is: 


k(R/t)  =  G  _ A(A)  -  A(B)_  -  A_(G),_t_AlDj _ 

'  [A(R1)  -  A(R2) 3  [A(T1)  -  A(T1)] 


This  is  the  likelihood  of  target  T,  with  respect  to  report  R.  The  result 
is  more  easily  interpreted  if  the  constant,  G,  is  set  equal  to  the  shaded 
report  area  (see  Figure  9): 


G  =  A(R1)  -  A(R2) 


(55) 


The  assumption  is  that  if  the  target  is  in  the  shaded  report  area,  then 
there  is  a  100-percent  chance  that  the  location  measurement  occurs.  With 
G  so  defined,  the  likelihood--Eq.  (54) — becomes  a  conditional  probability. 
It  is  just  the  ratio  of  the  area  of  the  two  small  squares,  A(A)  -  A(B)  - 
A(C)  +A(D),  divided  by  the  area  of  the  target  annulus,  A(T1)  -  A(T2). 

In  other  words,  the  probability  of  the  target  being  in  both  the  report 
and  target  areas,  given  that  it  is  in  the  target  area,  is  the  ratio  of 
the  two  areas--again,  an  intuitive  result. 

Figure  11  shows  a  second  example  of  a  problem  in  which  the  con¬ 
ditional  probability  algorithm  would  be  useful.  Instead  of  a  localiza¬ 
tion  report  likelihood  function,  a  search  pattern  likelihood  function  is 
defined.  If  the  target  is  inside  the  small  dotted  polygon,  then  there 
is  a  100-percent  probability  of  detecting  the  target.  If  the  target  is 
inside  the  large  dotted  polygon  but  outside  the  small  dotted  polygon, 
then  there  is  a  50-percent  probability  of  detecting  the  target.  The  con¬ 
ditional  probability  of  detection,  g(R/T),  given  a  target  distribution 
(the  three  ellipses),  can  then  be  computed  by  using  Eq.  (53). 

3.  Program  Code 

Table  6  shows  the  section  of  code  used  to  calculate  conditional 
probabilities.  The  operator  inputs  the  indices  of  the  P-distribution 
(L,M,N)  and  the  Q-distribution  (L,M,N2).  The  conditional  probability  is 
the  probability  of  P,  given  Q. 

The  DO-254  loops  set  up  an  outer  product  of  P  and  Q  polygons, 

JP  and  JQ.  Subroutine  OAK  returns  a  set  of  polygons  that  are  the  result 
of  the  intersection  of  polygons  JP  and  JQ.  If  there  are  polygons  in  the 
intersection  (JMAX  positive),  then  the  heights  of  the  input  polygons, 

JP  and  JQ,  are  found.  Function  AREA  is  used  to  calculate  the  area  of 
each  polygon  in  the  intersection;  and  the  product  of  the  heights  and  the 
area  is  summed  in  the  DO-252  loop. 

Once  all  of  the  polygon  pairs  are  intersected,  the  resulting 
sum,  PROB,  is  divided  by  the  magnitude  of  the  height  of  the  first  poly¬ 
gon  in  the  P-distribution;  thus,  the  G-factor  [see  Eq.  (53)1  is  a 
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FIGURE  11  PROBABILITY  OF  DETECTION 


reciprocal  height.  For  single-polygon  likelihood  functions,  this  scheme 
is  equivalent  to  assuming  a  100-percent  probability  of  receiving  the 
localization  report,  conditioned  on  the  target  being  at  an  xy-point  in¬ 
side  the  polygon.  For  multipolygonal  likelihood  functions,  this  scheme 
is  not  a  very  good  one.  What  is  needed  is  a  simple  algorithm  to  find 
the  maximum  height  of  a  likelihood  function  when  G  =  1.  Then  a  new  G- 
factor  can  be  defined  so  that  the  maximum  height  is  equal  to  an  input 
probability,  such  as  100  percent.  The  maximum-height  algorithm  has  not 
been  developed  yet. 


Table  6 


CONDITIONAL  PROBABILITY  ALGORITHM 


s* 

**  CONDITIONAL  PROBABILITY 
290  PROB‘0. 

JP1 ■ JA(L, M, N ) 

JP2*JB!L,M,N) 

J01 »  JA!  L,  M, N2) 

JQ2* JB(L, M, N2 ) 

DO  254  JP*JP1 , JP2 
DO  254  JQ* JQ1 , JQ2 

CALL  OAK (2, JP, JQ,  I  A,  IB, X, Y, XW, YW,  IW, JMAX ) 

1 F ( JMAX ) 255, 254,251 

251  HPO*H! JP)«H( JO) 

DO  252  JO* 1 , JMAX 

252  PROB  =  PROB THPO • ARE A ( XW , YW , IW, JO) 

254  CONTINUE 

PROB  =  PROB /ABS(H( JP1  ) ) 

WR I TE (6,34)  N, N2, PROB 
WRITE! 0,34)  N, N2, PROB 

34  FORMAT ( »PROB  OF  *,!2,»  GIVEN  *,I2,»  **,F5.2) 
GO  TO  100 

255  WR I TE( 6, 35 )  JMAX 
WRITE! 8, 35)  JMAX 

35  FORMAT!* I UCALC  ERROR  *,13) 

GO  TO  100 


E.  Prediction  Algorithm 

A  "prediction  algorithm"  was  developed  to  move  target  uncertainty 
areas  in  time.  A  multipolygonal  target  position  distribution,  (1,M,N), 
is  assigned  a  multipolygonal  velocity  distribution,  (2,M,N).  The  algo¬ 
rithm  calculates  a  predicted  position  polygon  for  each  polygon  in  (1,M,N) 
based  on  each  polygon  in  the  velocity  distribution  (2,M,N).  Furthermore, 
a  predicted  velocity  distribution  is  calculated. 

1.  Program  Logic 

a.  Predicted  Position  Polygons 

Recall  that  the  velocity  distribution,  (2,M,N),  when  de¬ 
fined  with  respect  to  a  position  distribution,  (1,M,N),  represents  all 
possible  positions  of  the  centroid  of  the  position  distribution  at  the 
next  time  step,  M  +  1.  Consequently,  all  possible  positions  at  time 
step  M  +  1  of  the  centroid  of  any  polygon,  P,  in  the  position  distribu¬ 
tion  are  represented  by  a  translation  of  said  velocity  distribution. 
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This  translation  is  determined  by  adding  to  all  the  vertices  of  each 
polygon  in  (2,M,N)  the  vector  determined  by  subtracting  the  centroid  of 
the  position  distribution  (1,M,N)  from  the  centroid  of  the  position  poly¬ 
gon  P.  That  is,  if  is  a  polygon  in  velocity  distribution  (2,M,N)  with 
vertices  given  by  v. . ,  and  S  is  the  centroid  of  position  distribution 
(1,M,N),  and  p  is  the  centroid  of  polygon  P,  then  the  vertices  of  the 
translated  polygon  V^(p)  are  given  by: 


v. . (p)  =  v. . 
ij  ij 


+  p  -  S,  for  all  j . 


Similarly,  if  p  is  any  point  of  positive  information  in  position  polygon 
P,  all  possible  positions  of  p  at  time  step  M  +  1  are  represented  by 
translating  the  velocity  distribution  (2,M,N)  by  the  vector  determined 
by  subtracting  S  from  p.  The  vertices  of  this  translated  distribution, 
{V^(p)}>  are  given  by  v_(p)  =  v„  +  p  -  S,  for  all  i  and  j. 

This  argument  is  sufficient  to  deduce  the  predicted  posi¬ 
tion  polygon  defined  by  a  position  polygon,  P,  and  a  velocity  polygon, 

V,  and  is  valid  for  negative  as  well  as  positive  information  polygons. 

The  predicted  position  polygon  thus  derived  is  always  a  positive  informa¬ 
tion  area.  In  the  context  of  this  argument,  however,  negative  information 
polygons  must  be  interpreted  in  terms  of  positive  information.  That  is, 
a  negative  information  polygon  has  no  interior;  it  consists  solely  of  a 
boundary  of  positive  information.  Moreover,  a  negative  information  area 
can  exist  only  when  enclosed  by  a  positive  information  area.  Thus,  the 
predicted  position  polygon  determined  by  P  and  V  is  the  union  of  the 
V(p)  over  all  p  in  P: 


I  u  v(P)\ 

\Pep  / 

One  can  visualize  the  predicted  position  polygon  as  constructed  by  the 
following  process.  The  centroid,  v(p),  of  the  translated  velocity  poly¬ 
gon  V(p)  is  determined.  The  position  polygon,  P,  is  rigidly  translated 
to  have  its  centroid  at  v(p).  The  predicted  position  polygon  then  is 
the  figure  resulting  when  the  velocity  polygon  is  rigidly  translated  to 
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have  its  centroid  successively  at  each  point  of  the  translated  position 
polygon.  It  is  not  hard  to  prove  the  equivalence  of 


U  V(p)  to  U  _  P(v), 
peP  veV(p) 

where  P(v)  is  the  rigid  translation  of  the  position  polygon  that  has  its 
centroid  at  v.  If  the  vertices  of  P  are  given  by  p^  ,  the  vertices  of 
translated  polygon  P(v)  are  given  by: 


p  (v)  =  Pj  +  v  - 


for  all  j 


It  was  conjectured  and  then  proved  that  the  algorithm 
described  below  computes  the  predicted  position  polygon,  given  a  position 
polygon,  P,  and  a  velocity  polygon,  V. 


The  Exact  Algorithm.  The  translated  velocity  polygon  V(p) 
is  first  computed.  The  vertices  of  V(p)  are  given  by  Eq.  (56),  and  the 
centroid  of  V(p)  is  given  by  v(p)  =  v  +  p  -  S,  where  v  is  the  centroid 
of  V.  Subsequently,  the  translated  position  polygons  P(v^(p))  are  deter¬ 
mined  for  all  vertices,  Vj(p),  of  the  velocity  polygon.  The  vertices  of 
polygon  P(v^(p))  are  given  by  Eq.  (57)--that  is,  p^v^p))  =  p^  +  v^(p) 

-  p.  The  centroid  of  P(v^(p))  is  v,(p).  A  parallelogram  is  generated 
corresponding  to  each  pair  of  consecutive  vertices,  p^  and  P^+^>  of  posi¬ 
tion  polygon  P,  and  each  vertex,  v^  ,  of  velocity  polygon  V(p).  Thus, 
for  each  pair  of  i  and  j  indices,  the  parallelogram  consists  of  vertices 
p^(Vj)  and  Pi+^(vj)  °f  polygon  P(v  ),  and  vertices  pi+^(Vj+^)  and 
p^(Vj+^)  of  polygon  P(v  ^).  Then  the  union  of  all  the  P(v^)  anci  all 
the  parallelograms  is  computed  iteratively  (see  Figure  12). 

When  the  position  polygon  and  velocity  polygon  represent 
positive  information  areas,  the  predicted  position  polygon  is  all  the 
area  surrounded  by  the  outer  boundary  of  the  union,  including  the  outer 
boundary.  When  either  the  position  polygon  or  the  velocity  polygon  (but 
not  both)  represent  negative  information,  the  predicted  position  polygon 
is  the  union.  In  this  case,  a  predicted  negative  information  area  need 
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FIGURE  12  GRAPHIC  OUTLINE  OF  EXACT  ALGORITHM 


not  exist.  When  the  union  has  an  inner  boundary,  the  area  enclosed  by 
the  inner  boundary  is  the  negative  inf ormation,*Rtea  (see  Figure  *13») .  »••<«  • 

When  there  is  no  inner  boundary,  the  negative  information  area  does  not 
exist.  When  both  position  polygon  and  velocity  polygon  represent  nega¬ 
tive  information,  it  can  be  proven  that  the  predicted  position  polygon 
generated  by  them  is  a  subset  of  the  predicted  position  polygon  generated 
by  the  positive  information  position  and  velocity  polygons  that  enclose 
them. 

The  exact  algorithm  is  based  on  complete  enumeration.  It 
generally  requires  that  (Ml+1)  •  M2  unions  be  performed,  where  Ml  and  M2, 
respectively,  are  the  number  of  distinct  vertices  in  the  position  and 
velocity  polygons.  Algorithms  to  compute  the  predicted  position  polygon 
that  are  more  efficient,  though  less  obvious,  than  the  exact  algorithm 
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were  expected  to  exist.  A  much  more  efficient,  but  heuristic,  algorithm 
has  been  developed  (based  on  study  of  the  exact  algorithm)  to  compute 
the  predicted  position  polygon  determined  by  convex  positive  information 
position  polygon  P  and  convex  or  nonconvex  positive  information  velocity 
polygon  V.  It  does  not  appear  applicable  to  negative  information  polygons. 
This  algorithm  is  described  in  the  following  paragraphs. 


The  Quick  Algorithm.  The  algorithm  assumes  that  the 
velocity  and  position  polygons  have  vertices  ordered  in  the  clockwise 
direction.  The  translated  polygon  V(p)  is  first  computed.  A  vertex 
known  to  be  on  the  boundary  of  the  predicted  position  polygon  is  selected. 
(Such  a  vertex  is  the  northernmost  vertex  of  the  position  polygon  when 
translated  so  that  its  centroid  is  at  the  northernmost  vertex  of  the  poly¬ 
gon  V(p).)  Suppose  the  last  vertex  selected  for  the  predicted  position 
polygon  corresponds  to  a  vertex--say,  with  index  k--of  the  position  poly¬ 
gon  translated  to  have  its  centroid  at  a  vertex,  v.,  of  polygon  V(p). 

The  equation  of  this  vertex,  p,  (v.),  is  given  by  Eq.  (57),  specifically 
_  K  J 

p  (v.)  =  p  +  v.  -  p.  Usually  the  next  vertex  of  the  predicted  position 

R  J  K  J 

polygon  is  given  by  either  the  vertex  with  index  k  +  1  of  polygon  P(v^), 
Pk+^(Vj),  or  the  vertex  with  index  k  of  polygon  P(v^.+j),  Pk(vj+p*  T^e 
oriented  area  of  the  triangle  defined  by  the  three  points  p  (v.),  p  .(v.), 

K  J  K+l  J 

and  Pk(vj+^)  is  computed.  [it  is  assumed  that  a  triangle  with  vertices 
ordered  in  a  clockwise  direction  has  positive  area  (refer  to  III-A).] 

When  the  area  of  the  triangle  is  strictly  positive,  the  next  vertex  of 
the  predicted  position  polygon  is  usually  p  (v.).  When  the  area  is 

Kt  L  J 

strictly  negative,  the  next  vertex  is  usually  p^(Vj+^).  When  the  area 
is  zero,  either  vertex  will  usually  do.  Vertices  continue  to  be  chosen 
in  the  manner  described  above  until  the  first  vertex  selected  is  chosen 
again.  The  algorithm  in  this  way  determines  a  polygon,  U,  consisting 
of  points  that  usually  are  vertices  of  the  predicted  position  polygon. 


It  has  been  shown  that  sometimes  some  point  selected  in 
this  manner  is  actually  in  the  interior  of  the  predicted  position  poly¬ 
gon.  Although  this  is  an  infrequent  occurrence,  a  further  procedure  of 
the  algorithm  was  developed  to  replace  such  interior  points  witli  the 
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proper  vertices.  This  procedure  is  to  replace  the  polygon  U,  with  the 
union  of  U  and  all  the  P(v.).  Thus,  the  algorithm  yields  the  final  re¬ 
sult: 


u  U  (  U  P(v.)) 
j  J 

for  the  predicted  position  polygon.  The  heuristic  result  compares  very 
well  to  the  result  computed  by  the  exact  algorithm. 

The  predicted  position  polygon  computed  by  the  above 
methods  is  stored  as  a  polygon  in  distribution  (1,M+1,N). 

b .  Predicted  Velocity  Polygons 

The  following  algorithm  provides  the  logic  for  the  compu¬ 
tation  of  the  predicted  velocity  distribution  (2,M+1,N).  The  algorithm 
determines  the  time  step,  M^,  of  the  most  recently  input  velocity  distri¬ 
bution  associated  with  target  N.  The  predicted  velocity  distribution  is 
then  computed  by  translating  velocity  distribution  (2,M^,N)  by  the  vector 
derived  by  subtracting  the  centroid  of  distribution  (l,Mo,N)  from  the 
centroid  of  (1,M+1,N).  If  V.  is  a  polygon  in  velocity  distribution 
(2,Mo,N),  with  vertices  given  by  v.,  . ,  if  Sq  and  are  the  centroids  of 
distributions  (1,Mq,N)  and  (1,M+1,N),  respectively,  then  the  vertices 
of  the  predicted  velocity  polygon  determined  by  V.  are  given  by 

v.  .  (S, )  =  v. .  +  S  -  S  .  (58) 

lj  1  xj  1  o 

2 .  Examples  of  Prediction 

Figure  14  illustrates  the  evolution  over  one  time  step  of  an 
elliptical  position  and  velocity  distribution,  Figure  14(a).  The  pre¬ 
dicted  position  distribution  is  the  large  elliptical  polygon  in  Figure 
14(b).  The  predicted  velocity  distribution  is  also  elliptical  [the 
rightmost  polygon  in  Figure  14(b)], 

Figure  13  shows  the  evolution  over  one  time  step  of  a  triangu¬ 
lar  position  distribution  and  a  velocity  distribution  composed  of  nested 
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(a)  INPUT  POSITION  DISTRIBUTION  (left  polygon)  AND 
INPUT  VELOCITY  DISTRIBUTION  (right  polygon! 


(bl  PREDICTED  POSITION  DISTRIBUTION  Hargett  polygon)  AND 
PREDICTED  VELOCITY  DISTRIBUTION  (right  polygon) 


FIGURE  14  EXAMPLE  OF  ELLIPTICAL  POSITION  AND  VELOCITY 
DISTRIBUTION  PREDICTION 


quadrilaterals,  Figure  13(a).  The  inner  quadrilateral  is  a  negative 
information  area.  At  time  step  2,  Figure  13(b),  the  predicted  position 
distribution  has  a  positive  and  a  negative  information  area.  The  positive 
information  area  is  the  pentagon  and  the  negative  information  area  is 
the  smallest  quadrilateral  within  it. 

3.  Program  Code 

Table  7  shows  the  section  of  code  in  program  POL  that  controls 
the  calculation  of  predicted  position  and  velocity  distributions.  The 
terminal  operator  inputs  M,  the  time  step  from  which  the  prediction  is 
calculated,  and  N,  the  distribution  number. 

The  screen  is  erased,  then  subroutine  DRAW  is  called  so  that 
the  position  distribution  and  velocity  distribution  that  are  input  to 
the  prediction  algorithm  can  be  redrawn.  If  land  masses  have  been  defined 
(that  is,  when  LAND  =  TRUE),  subroutine  VEC  is  called  so  that  the  land 
masses  can  be  redrawn. 

Subroutine  MOVMENT  is  called  to  calculate  the  predicted  posi¬ 
tion  distribution.  Subroutine  MOVECEN  is  called  to  calculate  the  pre¬ 
dicted  velocity  distribution.  When  an  error  is  detected  by  subroutines 
MOVMENT  or  MOVECEN  or  any  subroutines  called  by  them,  control  automati¬ 
cally  returns  to  label  100  of  the  main  program  POL. 

a.  Position  Prediction 

Subroutine  MOVMENT  calls  subroutines  CONCLDE,  CUMUN, 
NUCUMUN,  SELECT,  UPDATE,  and  VEC.  Its  input  parameters  are:  M,  N,  JA, 

JB,  X,  Y,  IA,  IB,  P,  XCEN ,  YCEN,  XW,  J,  I LA,  JLA,  SE,  KE,  KLA,  H,  LAX, 

LAY,  LIA,  LIB,  LAN,  LAND,  LN,  LE,  LS,  LW,  INC,  CLOSE.  The  arrays  XW  and 
YW  are  work  areas.  The  remaining  parameters  are  as  defined  in  Sections 
II-B  and  II-C.  The  output  parameters  are  JA,  JB,  X,  Y,  LA,  IB,  P,  XCEN, 
YCEN,  J,  I LA,  JLA,  SE,  KE,  KLA,  and  H. 

Subroutine  MOVMENT  first  determines  the  time  step,  Ml, 
for  which  the  predicted  position  is  computed.  In  fact,  Ml  =  M  +  1.  The 
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Table  7 


PREDICTION  ALGORITHM 


••PREDICTION  ALGORITHM 
500  CONTINUE 
Ml =M+ 1 
WR I TE (8,48) 

WR I  TEC  6, 48) 

48  FORMAT < *SERA  G« ) 

WRITE! 8, 50) 

WR I  TEC  6, 50) 

50  FORMAT ( *$L I N  4«) 

CALL  DRAW ( 1,M.N,1A,1B,JA,JB,X,Y,P) 

CALL  ORAWC  2 ,  M,  N ,  I  A ,  I B , JA , JB , X , Y , P ) 

I FC .NOT. LAND)  GOTO  700 
WRI TEC6, 55) 

WRITE! 8, 55) 

55  FORMAT C**L IN  8« ) 

LAN=LJBC 1,1,1) 

DO  600  J*1 , LAN 
I 1-L1AC J) 

I2=LIB< J) 

CALL  VECC I  I ,  12, LAX, LAY) 

600  CONTINUE 
700  CONTINUE 

WR I TE ( 6 , 28 ) 

C  ENDFILE  6 

WRI TEC  8, 28) 

CALL  MESSAGC ( 7HP0L  . 7HM0VMENT > 

CALL  MOVMENT CM, N, JA, JB.  X , Y ,  I  A ,  I B, P , XCEN . Y CEN , 

*  XW , YW , J ,  I  LA . JLA , FLAG , SE , KE , KL A , H , LAX , LAY , L I  A , L I B , 

*  LAN, LAND, LN, LE, LS, LW. INC, CLOSE) 

CALL  MESSAGAC 7HP0L  ) 

IF! .NOT. FLAG)  GOTO  100 

CALL  MESSAGC! 7HP0L  , 7HM0VCEN  ) 

CALL  MOVECENCM, N. J A , JB , X , Y ,  I  A ,  I B , P , SE , KE . KLA , 

*  XW, YW, J,  I  LA, JLA, XCEN, YCEN, H, LAX, LAY, LI  A. LIB, 

*  LAN, LAND, LN, LE, LS, LW, I NPUT , COUNT , FLAG ) 

CALL  MESSAGA ( 7HP0L  ) 

GOTO  100 


DO-IOOO  loop  is  over  each  polygon  in  the  input  velocity  distribution, 
(2,M,N),  while  the  DO- 9 00  Loop  is  over  each  poLygon  in  the  input  position 
distribution,  (1,M,N). 


For  each  execution  of  the  1)0-900  loop,  a  translation  of 
tile  velocity  polygon  is  computed  with  respect  to  the  position  polygon 
and  stored  in  arrays  XC  and  YG,  redundant  vertex  points  included.  The 
weights  of  the  velocity  and  position  polygons  are  evaluated  in  order  to 
determine  whether  positive  or  negative  information  areas  are  represented 
by  them.  When  two  positive  information  areas  are  indicated,  subroutine 
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NUCUMUN  or  subroutine  CUMUN  is  called  at  operator  option.  When  one  nega¬ 
tive  information  area  is  indicated,  subroutine  CUMUN  is  called.  When  two 
negative  information  areas  are  indicated,  no  further  operation  in  the 
DO-900  loop  is  executed. 

Subroutine  NUCUMUN  performs  the  heuristic  quick  algorithm 
(refer  to  Section  III-E-l-a)  to  calculate  the  predicted  position  polygon. 
NUCUMUN  assumes  that  the  vertices  of  the  input  polygons  are  in  clockwise 
order.  NUCUMUN  calls  the  function  NORTH,  which  calculates  the  index  of 
the  most  north  vertex  of  an  input  polygon;  the  function  AREA,  which  cal¬ 
culates  the  area  of  an  input  polygon  using  the  triangle-area  method;  and 
subroutine  PREIU.  The  input  parameters  of  NUCUMUN  are: 

NG0N1  The  polygon  number  of  the  position  polygon 

NG0N2  The  polygon  number  of  the  velocity  polygon 

IA  The  array  of  vertex-start  indices 

IB  The  array  of  vertex-stop  indices 

X  The  x-coordinates  of  all  polygons 

Y  The  y-coordinates  of  all  polygons 

XCEN  The  array  of  x  coordinates  of  polygon  centroids 

YCEN  The  array  of  y  coordinates  of  polygon  centroids 

PGX  The  x  coordinates  of  the  translation  of  the  velocity 

polygon  with  respect  to  NG0N1 

PGY  The  y  coordinates  of  the  translation  of  the  velocity 

polygon  with  respect  to  NG0N1. 

Certain  scratch  arrays  are  passed  to  NUCUMUN  for  work  areas.  Those  are 
XW,  YW,  IW,  XS,  YS,  IS,  and  WK.  The  output  parameters  of  NUCUMUN  are: 

FLAG  =  FALSE  The  signal  that  NUCUMUN  or  IUCALC  has  abnormally 

terminated  processing 

RX  The  array  of  x  coordinates  of  the  predicted  position 

polygon 

RY  The  array  of  y  coordinates  of  the  predicted  position 

polygon 

IR1  The  number  of  distinct  vertices  in  the  predicted 

position  polygon 

JMAX  The  number  of  resultant  polygons  (including  zero) 

computed  by  IUCALC  or  an  error  flag  indicating  that 
IUCALC  has  abnormally  terminated  processing. 
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The  arrays  PARX  and  PARY  contain  the  x  coordinates  and  y  coordinates, 
respectively,  of  triangles,  the  signs  of  whose  areas  determine  the  next 
vertex. 

Subroutine  NUCUMUN  first  calls  function  NORTH  to  compute 
the  most  north  vertex  in  PGX,  which  is  stored  in  N0NG0N2,  and  the  most 
north  vertex  in  NG0N1,  which  is  stored  in  N0NG0N1.  Using  this  informa¬ 
tion,  the  starting  vertex  on  the  boundary  of  the  predicted  position  poly¬ 
gon  is  then  determined  and  stored  in  both  (RX(1),  RY(1))  and  (PARX(l), 
PARY(l)).  The  formula  for  this  vertex  is  given  by  Eq.  (57).  The  DO-2999 
loop  determines  the  two  candidates  for  the  next  vertex  on  the  boundary. 
The  first  candidate  (the  next  vertex  of  NG0N1  translated  to  the  vertex 
of  NG0N2  associated  with  the  last  vertex  selected  for  the  boundary)  is 
stored  in  (PARX(2),  PARY(2));  the  second  candidate  (the  same  vertex  of 
NG0N1  translated  to  the  next  vertex  of  NG0N2)  is  stored  in  (PARX(3), 
PARY(3)).  The  formula  for  these  vertices  is  given  by  Eq.  (57).  The 
area  of  the  triangle  defined  by  the  arrays  PARX  and  PARY  is  then  evalu¬ 
ated  and  stored  in  A.  When  A  is  close  to  zero,  the  two  candidates  are 
collinear.  In  order  that  the  next  vertex  be  as  far  from  the  last  one  as 
possible,  the  two  distances  D2  and  D3  are  computed.  D2  is  the  distance 
between  the  last  vertex  selected  and  the  first  candidate;  D3  is  the 
distance  between  the  last  vertex  selected  and  the  second  candidate.  The 
first  or  second  candidate  is  selected,  depending,  respectively,  on 
whether  D2  or  D3  is  greater.  When  A  is  positive  and  not  close  to  zero, 
the  first  candidate  is  selected.  When  A  is  negative  and  not  close  to 
zero,  the  second  candidate  is  selected.  The  vertex  selected  is  stored 
in  the  next  position  of  arrays  RX  and  RY.  The  DO-2999  loop  terminates 
normally  when  the  starting  vertex  is  selected  as  the  next  vertex.  In 
this  case,  the  DO-5000  loop  is  executed.  This  loop  successively  computes 
the  union  of  NG0N1  translated  to  each  vertex  of  NG0N2,  with  the  polygon 
in  arrays  RX  and  RY.  This  is  done  by  repeated  calls  to  PREIU.  If  no 
error  is  detected  by  PREIU,  the  final  result  is  the  boundary  of  the  pre¬ 
dicted  position  polygon.  It  is  stored  in  the  arrays  RX  and  RY,  and  then 
control  returns  to  MOVMENT.  An  abnormal  termination  of  the  DO-2999  loop 
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results  in  an  error  message  with  control  returning  from  NUCUMUN  to  label 
100  of  the  main  program  POL. 


Subroutine  NUCUMUN  provides  a  quick  method  of  generating 
the  predicted  position  polygon.  It  is  a  heuristic  method,  however.  When 
this  algorithm  is  applied  to  nonconvex  position  polygons,  the  predicted 
position  polygon  it  calculates  is  not  correct  in  all  particulars.  Errors 
in  NUCUMUN  calculations  result  in  the  generation  of  polygon- like  figures 
where  sides  intersect  at  interior  points.  An  example  of  this  is  shown 
in  Figure  15.  The  operator  can  avoid  this  situation  by  using  NUCUMUN  only 
when  the  input  position  polygon  is  convex.  When  questionable  NUCUMUN 
results  are  generated,  the  code  allows  the  operator  to  recalculate  the 
predicted  target  distribution  using  subroutine  CUMUN. 

To  generate  the  predicted  position  polygon,  subroutine 
CUMUN  uses  a  method  that  has  been  proved  correct.  This  method,  however, 
requires  many  more  calculations  than  NUCUMUN  to  generate  the  predicted 
position  polygon. 

Subroutine  CUMUN  performs  the  exact  algorithm  (refer  to 
Section  IIl-E-l-a)  to  calculate  the  predicted  position  polygon.  CUMUN 
calls  the  function  COLL,  which  determines  whether  four  vertices  computed 
by  CUMUN  (whose  x  and  y  coordinates  are  stored,  respectively,  in  arrays 
PARX  and  PARY)  form  a  parallelogram,  and  it  also  calls  subroutine  PREIU. 
The  input  parameters  of  CUMUN  are  exactly  the  same  as  the  input  parameters 
of  NUCUMUN.  The  scratch  arrays  passed  to  CUMUN  for  work  areas  are  XW, 

YW,  IW,  WK,  RX,  RY,  and  IR.  The  output  parameters  of  CUMUN  are  XS,  YS, 

IS,  FLAG,  and  JMAX.  FLAG  and  JMAX  are  the  same  as  in  NUCUMUN.  For  the 
remaining  output  parameters  we  have: 

XS  The  array  of  x  coordinates  of  the  resulting  pre¬ 

dicted  positive  information  area 

YS  The  array  of  y  coordinates  of  the  resulting  predicted 

positive  information  area 

IS  The  integer  array  that  contains  the  index  of  the 

start  of  each  polygon  and  the  number  of  vertices 
of  each  polygon  in  the  predicted  positive  informa¬ 
tion  area. 
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FIGURE  15  ERRONEOUS  NUCUMUN  RESULT 


The  DO- 1500  loop  of  subroutine  CUMUN  is  over  the  number 
of  distinct  vertices  in  NG0N2.  When  the  DO-1500  loop  is  executed  the 
J-th  time,  NG0N1  is  translated  so  that  the  translation's  centroid  is  the 
J-th  vertex  of  NG0N2.  The  translation  is  stored  in  arrays  XW  and  YW, 
redundant  vertex  not  included.  The  formulas  for  the  vertices  of  this 
polygon  are  given  by  Eq.  (57).  The  DO-1000  loop  is  over  the  number  of 
distinct  vertices  in  NG0N1.  When  the  DO-1000  loop  is  executed  the  1-th 
time,  four  vertices  are  computed.  Two  vertices  are  vertices  I  and  I  +  1 
of  NG0N1  translated  to  have  its  centroid  at  vertex  J  of  NGON2.  Two  ver¬ 
tices  are  vertices  I  +  1  and  I  of  NGONl  translated  to  have  its  centroid 
at  vertex  J  +  1  of  NG0N2.  The  x  and  y  coordinates  of  these  vertices  are 
stored,  respectively,  in  PARX  and  PARY.  Function  COLL  determines  when 
the  points  in  PARX  and  PARY  define  a  parallelogram,  in  this  case  COLL  = 
FALSE.  When  PARX  and  PARY  define  a  parallelogram,  the  union  of  the 
parallelogram  and  the  polygon  currently  stored  in  arrays  XW  and  YW  is 
computed  by  a  call  to  subroutine  PREIU.  After  the  DO-1000  loop  completes 
processing,  and  if  the  DO-1500  loop  is  in  its  first  iteration,  the  con¬ 
tents  of  arrays  XW  and  YW  are  transferred,  respectively,  to  arrays  RX 
and  RY.  After  the  DO-1000  loop  completes  processing  and  for  all  itera¬ 
tions  of  the  DO-1500  loop  except  the  first,  the  union  of  the  polygon 
stored  in  arrays  XW  and  YW  and  the  polygon  stored  in  arrays  RX  and  RY 
is  computed  by  a  call  to  subroutine  PREIU.  When  the  DO- 1500  loop  completes 
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processing,  the  final  result  is  stored  in  XS,  YS,  IS,  and  control  re¬ 
turns  to  MOVMENT. 


During  the  execution  of  subroutine  CUMUN,  problems  are 
sometimes  encountered.  The  exact  algorithm  that  CUMUN  implements  re¬ 
quires  that  frequently  the  union  be  computed  between  two  polygons  having 
two  or  more  vertices  in  common.  Erroneous  results  have  been  generated 
by  the  IUCALC  subroutines,  which  are  used  to  compute  the  unions  in  this 
algorithm.  IUCALC  may  generate  polygon-like  figures  where  sides  inter¬ 
sect  in  interior  points  as  exhibited  by  Figure  16.  Or  it  may  generate 
figures  with  coinciding  sides  as  exhibited  by  Figure  17.  Investigation 
seems  to  implicate  the  routine,  ENSYD2,  which  determines  when  a  point  is 
inside  a  polygon.  It  was  discovered  that  this  routine  has  limited  appli¬ 
cation  because  it  must  assume  that  the  point  is  on  no  ray  coincident  with 
a  side  of  the  polygon.4  A  condition  that  is  necessarily  unsatisfied  by 
the  algorithm  using  it.  At  this  time  the  problem  remains  uncorrected. 

When  control  returns  from  CUMUN  to  MOVMENT,  MOVMENT  calls 
subroutine  SELECT.  Subroutine  SELECT,  depending  on  the  value  of  K,  ex¬ 
tracts  a  polygon  from  arrays  XS,  YS,  and  IS  and  stores  it  in  arrays  XPC 
and  YPC.  The  input  parameters  of  subroutine  SELECT  are  K,  JMAX,  XS,  YS, 
IS. 

When  K  =  -1,  the  polygon  representing  the  outer  boundary 
of  the  positive  information  area  is  selected;  when  K  =  -2,  the  polygon 
representing  the  inner  boundary  of  the  positive  information  area  is  se¬ 
lected,  if  it  exists.  The  parameters  JMAX,  XS,  YS,  IS  are  defined  as  in 
CUMUN.  The  output  parameters  are  K,  XPC,  YPC,  and  IC1.  The  signal  tint 
the  inner  boundary  of  the  positive  information  area  was  to  be  selected, 
but  that  it  did  not  exist,  is  K  =  0.  When  a  polygon  is  selected  from  XS, 
YS,  and  IS,  its  x  and  y  coordinates  are  stored,  respectively,  in  arrays 
XPC  and  YPC.  The  variable  IC1  contains  the  number  of  distinct  vertices 
in  the  polygon. 

When  control  returns  from  subroutine  SELECT  to  MOVMENT, 
but  no  polygon  was  selected  (that  is  KAY  =  0),  no  further  operation  in 
the  DO-900  loop  is  executed.  When  control  returns  from  SELECT  to  MOVMENT 
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(a)  POLYGON 


(b)  POLYGON  AND  PARRALELOGRAM 


(c)  ERRONEOUS  RESULT 

FIGURE  16  DEVELOPMENT  OF  ERRONEOUS  IUCALC  RESULT 
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FIGURE  17  ERRONEOUS  IUCALC  RESULT 


and  a  polygon  was  selected  or  when  control  returns  from  NUCUMUN  to 
MOVMENT,  MOVMENT  calls  subroutine  CONCLDE.  Subroutine  CONCLDE  calls  the 
land  interaction  algorithm  and  stores  the  resulting  predicted  position 
polygon.  This  is  discussed  in  a  later  section.  When  control  returns  to 
MOVMENT  and  no  error  has  been  detected,  an  iteration  of  the  DO-900  and 
DO- 1000  loops  has  been  completed.  When  the  DO- 1000  and  DO-900  loops  have 
completed  execution,  MOVMENT  calls  subroutine  UPDATE  to  compute  and  save 
the  statistics  for  the  predicted  position  distribution.  Subroutine 
UPDATE  calls  subroutines  NORM,  MOM,  and  SAVE. 

b.  Velocity  Prediction 

Subroutine  MOVECEN  calls  subroutines  NEWCEN,  UPDATE,  and 
VEC;  and  functions  ENSYD2  and  MINIMAX.  Its  input  parameters  are:  M,  N, 
JA,  JB,  X,  Y,  IA,  IB,  P,  SE,  KE,  KLA,  XW,  YW,  J,  I LA,  JLA,  XCEN,  YCEN,  H, 
LAX,  LAY,  LIA,  LIB,  LAN,  LAND,  LN,  LE,  LS,  LW,  INPUT,  and  COUNT.  The 
arrays  XW  and  YW  are  work  areas.  The  remaining  parameters  are  defined 
in  Sections  II-B  and  II-C.  The  output  parameters  are  JA,  JB,  X,  Y,  IA, 
IB,  P,  SE,  KE,  KLA,  J,  I LA,  JLA,  XCEN,  YCEN,  and  H. 

Subroutine  MOVECEN  first  determines  the  time  step,  Ml, 
for  which  the  predicted  velocity  distribution  is  computed.  The  DO-200 
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loop  determines  the  time  step,  MK,  of  the  most  recently  input  velocity 
distribution  associated  with  target  N.  If  this  loop  is  completed  with 
no  error  detected,  the  vector  defined  by  the  centroid  of  the  predicted 
position  distribution  (l,Ml,N)  minus  the  centroid  of  the  position  dis¬ 
tribution  (1,MK,N)  is  evaluated  and  the  resulting  x  and  y  coordinates 
are  stored  in  variables  SE1  and  SE2,  respectively.  The  DO-4000  loop  is 
over  the  polygons  in  the  velocity  distribution  (2,MK,N).  At  iteration 
J1  of  the  DO-4000  loop  when  no  land  is  defined,  control  passes  to  label 
3100  where  velocity  polygon  J1  is  translated  by  vector  (SE1,SE2).  Then 
subroutine  MOVECEN  calls  VEC  to  draw  the  translated  polygon  on  the  dis¬ 
play.  Subroutine  PUT  is  called  to  store  the  translated  polygon  in  a  new 
distribution  with  indices  (2,M1,N)  by  updating  the  arrays  IA,  IB,  JA,  JB, 
X  and  Y,  and  the  variables  J,  ILA,  and  JLA.  The  translated  polygon  is 
the  J-th  polygon  in  X  and  Y.  The  weight  of  polygon  J  is  set  equal  to 
polygon  J1  in  the  last  calculation  of  the  DO-4000  loop.  Before  returning 
to  the  main  program,  subroutine  MOVECEN  calls  subroutine  UPDATE  to  com¬ 
pute  and  save  the  statistics  of  the  predicted  velocity  distribution. 

The  behavior  of  MOVECEN  when  land  is  defined  is  discussed  in  a  later 
section. 


Land  Interaction  Algorithm 


A  "land  interaction  algorithm"  was  wanted  that  would  allow  target 
distributions  to  move  along  or  around  land  masses  such  as  coastlines, 
straits,  and  islands.  The  land  interaction  algorithm  was  to  be  used  in 
conjunction  with  the  already  implemented  prediction  algorithm.  The  im¬ 
plementation  of  such  an  algorithm  would  provide  more  realistic  display 
of  target  distributions,  allow  the  investigation  of  assumptions  under¬ 
lying  the  definition  of  target  distributions,  and  show  by  example  the 
capabilities  of  the  polygonal  data  structure. 


Initially,  the  only  requirement  of  the  land  interaction  algorithm 


was  that  the  consequent  graphic  display,  of  target  distributions  inter¬ 
acting  with  land,  should  provide  reasonable  suggestions  for  the  uncertain 
behavior  of  targets  as  they  maneuver  around  land.  There  were  thus  con¬ 
ceivably  many  satisfactory  approaches  to  development  of  the  algorithm. 
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As  an  introduction  to  the  algorithm  finally  implemented,  some  approaches 
to  the  land  interaction  algorithm  are  described.  Through  an  investiga¬ 
tion  of  these  approaches,  ’additional  requirements  were  adopted.  The  ap¬ 
proaches  considered  are  by  no  means  exhaustive.  Since  the  purpose  of 
the  research  was  to  demonstrate  the  feasibility  of  the  polygonal  data 
structure  concept,  rather  than  to  select  the  most  appropriate  models  of 
target  motion,  the  algorithm  implemented  should  not  be  regarded  as  opti¬ 
mal.  It  should  be  regarded  as  an  example  of  the  types  of  algorithm  made 
possible  by  the  use  of  this  data  structure. 

As  seen  in  the  development  of  the  prediction  algorithm,  in  the  ab¬ 
sence  of  land  the  uncertainty  characterized  by  the  position  and  velocity 
distribution  at  a  specified  time  step  completely  determines  position  un¬ 
certainty  at  the  next  time  step.  A  predicted  negative  information  poly¬ 
gon  indicates  that  there  exists  some  positive  area  outside.  That  is,  it 
is  possible  that  the  target  is  on  the  boundary  of  the  negative  informa¬ 
tion  polygon.  Thus  when  velocity  uncertainty  increases,  position  uncer¬ 
tainty  cannot  decrease.  Consequently,  the  ocean  area  included  in  the 
predicted  negative  information  polygon  cannot  increase;  to  do  so  would 
indicate  a  decrease  in  position  uncertainty.  The  approaches  considered, 
therefore,  treat  negative  information  polygons  the  same. 

1 .  Approaches  Considered  for  Land  Interaction 

a.  Approaches  Considered  for  Position  and  Land  Interaction 

Approach  1.  One  approach  to  the  interaction  of  a  pre¬ 
dicted  position  polygon  with  land  masses  is  to  eliminate  all  portions  of 
the  polygon  overlapping  land.  (It  is  clear  that  so  long  as  a  portion  of 
the  corresponding  velocity  polygon  is  outside  of  all  land  masses,  some 
portion  of  the  predicted  position  polygon  will  be  outside  of  all  land 
masses.)  Thus  a  predicted  position  polygon  that  overlapped  a  land  mass 
would  be  recomputed  to  be  that  portion  of  the  position  polygon  outside 
of  the  land.  This  approach  makes  no  effort  to  try  to  account  for  velo¬ 
city  uncertainties  introduced  by  the  proximity  of  land.  It  seems  rea¬ 
sonable  to  treat  positive  and  negative  information  position  polygons 
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alike  if  this  approach  is  used.  Thus,  this  approach  is  simple  to  imple¬ 
ment  and  comparatively  economical  of  computer  time. 

• 

Approach  2.  Another  approach  is  to  treat  positive  and 
negative  information  position  polygons  differently.  A  negative  informa¬ 
tion  predicted  position  polygon  overlapping  land  is  recomputed  to  be  that 
portion  of  the  predicted  position  outside  land.  A  positive  information 
predicted  position  polygon  overlapping  land  would  be  recomputed  to  be  a 
polygon  overlapping  no  land,  but  close  in  area  to  the  initial  predicted 
position  polygon,  and  similar  in  appearance  to  those  portions  of  the 
initial  predicted  position  polygon  outside  of  land.  One  way  to  maintain 
similarity  of  appearance  between  the  initial  predicted  position  polygon 
and  the  recomputed  polygon  is  to  compute,  for  each  vertex  of  the  initial 
polygon,  the  equation  of  the  line  through  the  vertex  and  centroid  of  the 
polygon.  Then  choose  as  vertices  of  the  new  polygon  one  point  from  each 
of  the  lines  determined  above  that  is  a  distance  6  from  the  corresponding 
vertex.  Thus  the  approach  determines  an  all-ocean  polygon  close  in  area 
to  the  initial  predicted  positive  information  polygon.  This  approach 
attempts  to  account  for  velocity  uncertainties  introduced  by  the  proxi¬ 
mity  of  land  by  increasing  the  ocean  area  included  in  the  predicted  posi¬ 
tive  information  polygon,  and  not  increasing  the  ocean  area  included  in 
the  predicted  negative  information  polygon.  This  approach  is  conceptu¬ 
ally  simple.  Compared  to  the  first  approach  described,  it  is  harder  to 
implement  and  has  more  demanding  computational  requirements. 

Approach  3.  The  third  approach  considered  also  treats 
positive  and  negative  information  areas  differently.  Negative  informa¬ 
tion  predicted  position  polygons  are  treated  just  as  in  the  previous  ap¬ 
proaches.  Positive  information  predicted  position  polygons  overlapping 
land  are  recomputed  to  be  a  polygon  overlapping  no  land  and  close  in 
area  to  the  initial  predicted  position  polygon.  The  requirement  of  simi¬ 
larity  in  appearance  is  relaxed  in  this  approach,  however.  The  idea 
would  be  to  use  heuristic  devices,  controlled  by  the  terminal  operator, 
to  determine  the  form  of  the  recomputed  polygon.  The  operator,  in  this 


approach,  would  control  the  final  shape  of  the  recomputed  polygon.  That 
is  in  contrast  to  the  previously  described  approaches,  where  the  shape 
of  the  recomputed  polygon  is  completely  determined* by  the  initial  pre¬ 
dicted  position  polygon.  The  heuristics  required  by  this  third  approach 
could  be  difficult  to  implement  and  extreme  in  computational  requirements. 

Many  other  approaches  can  be  conceptualized,  but  those  de¬ 
scribed  above  are  perhaps  the  simplest  to  implement.  It  is  interesting 
to  note  that  the  ability  to  define  and  redefine  target  distributions, 
subject  only  to  space  available,  means  that  the  terminal  operator  by 
undertaking  the  computational  burden  (for  instance,  estimation  of  the 
predicted  polygon  area)  can  approximate  any  of  these  approaches,  and 
furthermore  that  no  land  interaction  software  is  then  required.  The 
purpose  of  the  land  interaction  algorithm  is  to  free  the  terminal  opera¬ 
tor  from  this  computational  burden. 

Approach  2  was  selected  for  implementation  because  it 
attempts  to  account  for  velocity  uncertainties  introduced  by  proximity 
to  land,  yet  is  not  difficult  to  conceptualize  or  implement. 

b.  Approaches  Considered  for  Velocity  and  Land  Interaction 

Approaches  similar  to  those  considered  for  position  and 
land  interaction  can  be  used  for  velocity  and  land  interaction.  Two 
other  approaches  were  also  considered.  Those  two  are  described  below. 

Approach  4.  One  approach  to  the  interaction  of  a  pre¬ 
dicted  velocity  polygon  with  land  masses  is  to  create  two  copies  of  any 
predicted  velocity  polygon  that  overlaps  a  land  mass.  These  copies  are 
chosen  so  that  they  overlap  as  little  as  possible  with  land  masses,  but 
they  are  the  same  distance  as  the  predicted  velocity  polygon  from  the 
centroid,  S^,  of  the  predicted  position  distribution  to  which  the  pre¬ 
dicted  velocity  polygon  is  associated.  One  copy  is  placed  on  each  side 
of  the  line  joining  the  centroid  of  the  predicted  velocity  polygon  to  S^. 
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Approach  5.  Approach  5  is  very  similar  to  the  preceding 
one.  But  now  the  two  copies  are  chosen  so  that  the  centroid  of  each  copy 
is  not  within  a  land  mass.  This  approach  is  easy  to  implement  and  is 
not  computationally  burdensome.  Approach  5  was  selected  for  implementa¬ 
tion. 


2.  Program  Logic 

a.  Program  Logic  for  Position  and  Land  Interaction 

Positive  Information.  An  algorithm  was  needed  to  recom¬ 
pute  the  predicted  position  polygon  when  the  predicted  positive  informa¬ 
tion  position  polygon  generated  by  the  prediction  algorithm  intersects  a 
land  mass.  The  recomputed  polygon  needed  to  possess  the  properties  of 
intersecting  no  land  mass  and  being  similar  in  appearance  and  close  in 
area  to  the  predicted  position  polygon  provided  by  the  prediction  algo- 
ritlim.  Two  iterative  methods  of  recomputing  predicted  position  polygons 
were  developed.  These  methods  differ  only  in  the  final  step.  They  are 
discussed  below.  The  methods  determine  a  scale  factor,  a,  based  on  the 
method  of  Golden  Section.5  Then  the  methods  compute  a  polygon,  Q,  with 
vertices  q^,  from  a  and  the  vertices  p^  and  centroid  p  of  the  predicted 
position  polygon  provided  by  the  prediction  algorithm.  The  equations  of 
the  vertices  of  Q  are: 


qi  =  ^i  +  (1_a)P  •  (59) 

At  the  next  step,  both  methods  compute  a  set  of  remainder  polygons  from 
Q  and  the  land  masses.  The  remainder  polygons  are  the  parts  of  Q  that 
are  outside  all  the  land  masses. 

Method  1  of  recomputing  the  predicted  position  polygons 
computes  the  total  area  contained  in  the  set  of  remainder  polygons.  When 
the  operator  considers  this  area  close  enough  to  the  area  of  the  predicted 
position  polygon  provided  by  the  prediction  algorithm,  Method  1  selects 
that  set  of  remainder  polygons  as  the  recomputed  predicted  position  poly¬ 
gons.  Otherwise,  another  scale  factor  is  selected  according  to  the 
■not  hoi)  of  Golden  Section,  and  the  iterations  continue.  Method  2  of 
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generating  the  recomputed  predicted  position  polygon  computes  the  area 
of  the  largest  polygon  in  the  set  of  remainder  polygons.  When  the  dis¬ 
play  operator  considers  this  area  close  enough  to  the  area  of  the  pre¬ 
dicted  position  polygon  provided  by  the  prediction  algorithm,  the  method 
selects  the  largest  remainder  polygon  as  the  recomputed  predicted  posi¬ 
tion  polygon.  Otherwise,  another  scale  factor  is  selected  according  to 
the  method  of  Golden  Section  and  the  iterations  continue. 

Method  1  has  the  feature  that  multiple  recomputed  predicted 
position  polygons  are  frequently  generated  from  one  predicted  position 
polygon.  Furthermore,  these  multiple  polygons  cwn  be  widely  separated 
from  each  other--for  example,  on  opposite  sides  of  a  land  mass.  Thus, 
the  multiple  polygons  that  result  in  certain  cases  are  difficult  to 
interpret,  and  this  proliferation  of  polygons  creates  an  unnecessary 
burden  on  the  software. 

Method  2  avoids  this  feature  because  only  one  recomputed 
predicted  position  polygon  is  generated.  Method  2  was  the  method  adopted. 

Negative  Information.  An  algorithm  was  needed  to  recom¬ 
pute  the  predicted  position  polygon  when  the  predicted  negative  informa¬ 
tion  position  polygon  generated  by  the  prediction  algorithm  intersects 
a  land  mass.  The  recomputed  polygon  generated  by  the  method  was  to  be 
that  portion  of  the  predicted  position  polygon  outside  land.  The  method 
developed  in  the  previous  section  is  used  to  recompute  the  polygon  by 
setting  o  =  1. 


b .  Program  Logic  for  Velocity  and  Land  Interaction 

A  method  was  developed  for  recomputing  predicted  velocity 
polygons.  The  method  checks  each  predicted  velocity  polygon  to  determine 
if  its  centroid  is  contained  in  any  land  mass.  When  a  centroid  is  in  a 
land  mass,  one  copy  of  the  predicted  velocity  polygon  is  placed  on  each 
side  of  the  line  joining  the  centroid  of  the  predicted  velocity  polygon 
to  the  centroid  of  the  predicted  position  distribution  with  which  it  is 
associated,  such  that  the  centroid  of  each  copy  of  not  contained  in  any 
land  mass. 
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Each  copy  has  associated  with  it  a  proportion  of  the 
weight  assigned  the  predicted  velocity  polygon  generated  by  the  predic¬ 
tion  algorithm.  The  proportion  is  specified  by  the  operator. 

An  iterative  algorithm  is  employed  to  first  compute  a 
centroid  of  each  copy  outside  all  land  masses.  This  algorithm  is  de¬ 
scribed  below.  Consider  the  circle  with  center  at  the  centroid,  S^,  of 
the  predicted  position  distribution  and  radius  given  by  the  distance  be¬ 
tween  and  the  centroid  of  the  predicted  velocity  polygon.  When  the 
centroid  of  the  predicted  velocity  polygon,  (xQ,yo),  is  in  a  land  mass, 
the  algorithm  computes  the  point  on  the  circle  10  degrees  clockwise  of 
(x^jy^).  This  point  is  checked  to  determine  if  it  is  contained  in  the 
same  land  mass  as  (x^y^).  If  If  is >  the  algorithm  computes  the  point 
on  the  circle  20  degrees  clockwise  of  (x  ,y  )  anc*  this  point  is  checked. 
The  algorithm  continues  to  compute  points  clockwise  from  (x  ,y  )  and  10 
degrees  apart  until  a  point,  (x^,y^),  is  calculated  that  is  not  in  the 
same  land  mass  as  (x^.y^).  Then,  (x^,y^)  is  checked  to  determine  if  it 
is  contained  in  any  other  land  mass.  When  it  is  not,  (x^>y^)  is  the 
centroid  of  the  clockwise  copy  of  the  predicted  velocity  polygon. 

When  (x^,y^)  is  contained  in  another  land  mass,  the  point, 
(x,y),  computed  by  the  algorithm  immediately  preceding  (x^,y^)  is  in  the 
same  land  mass  as  (x^y^);  therefore  the  algorithm  computes  6,  the  angle 
separating  (x,y)  and  (x^,y^)  divided  by  10  and  computes  the  point, 

(x  ,y  ),  on  the  circle  6  degrees  clockwise  of  (x,y).  The  algorithm 
checks  ^2^2)  for  containment  in  the  same  land  mass  as  (xQ>yo)»  and  so 
long  as  that  is  true  the  algorithm  continues  to  compute  points  clockwise 
from  (x,y)  and  6  degrees  apart  until  a  point  is  calculated  that  is  not 
in  the  same  land  mass  as  (x^y^).  This  point  is  then  treated  as  (x^,y^) 
(see  above)  and  the  iterations  continue. 

The  centroid  of  the  counterclockwise  copy  of  the  predicted 
velocity  polygon  is  computed  in  a  similar  way. 
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Examples  of  Land  Interaction 


Figure  18  illustrates  the  evolution  of  a  target  distribution 
over  three  time  steps  around  a  land  mass.  The  position  polygon  at 
Step  1  is  the  solid  triangle,  while  velocity  is  given  by  the  dotted  tri¬ 
angle.  At  Step  2  the  position  uncertainty  area  has  evolved  to  the  hexa¬ 
gon.  The  velocity  distribution  has  evolved  to  two  triangles  in  response 
to  its  proximity  to  the  land  mass.  At  Step  3,  the  two  polygons  in  the 
velocity  distribution  at  Step  2  cause  two  position  uncertainty  areas  to 
evolve  around  the  land  mass. 

Figure  19  illustrates  the  evolution  of  another  target  distribu¬ 
tion  near  a  choke  point.  At  Step  1,  the  nested  quadrilaterals  are  the 
position  distribution,  consisting  of  positive  and  negative  information 
areas.  The  nested  triangles  are  the  velocity  distribution,  consisting 
of  positive  and  negative  information  areas.  At  Step  2,  the  position 
distribution  has  evolved  to  the  solid  polygons.  It  still  has  a  negative 
information  area.  The  velocity  distribution  has  evolved  to  four  tri¬ 
angles. 


4.  Program  Code 

a.  Position  and  Land  Interaction 

Subroutine  CONCLDE  calls  the  land  interaction  algorithm 
and  stores  the  recomputed  predicted  position  polygon  in  distribution 
(l,Ml,N).  The  predicted  position  polygon  computed  by  the  prediction 
algorithm  has  IC1  distinct  vertices;  its  x  and  y  coordinates  are  stored 
respectively  in  arrays  XPC  and  YPC.  Subroutine  CONCLDE  first  checks  the 
value  of  LAND.  Only  when  land  masses  are  defined  is  LAND  =  TRUE. 

When  no  land  is  defined,  control  passes  to  label  900, 
where  the  redundant  vertex  is  added  to  the  predicted  position  polygon. 
Subroutine  VEC  is  called  to  draw  the  polygon  on  the  display.  Subroutine 
PUT  is  called  to  store  the  polygon  as  polygon  JJ  in  distribution  (1,M1,N) 
by  updating  the  arrays  LA,  IB,  JA,  JB,  X,  and  Y,  and  the  variables  J, 

ILA,  and  JLA.  This  polygon  then  is  the  J-th  polygon  stored  in  X  and  Y. 
The  weight  of  this  polygon  is  set  equal  to  the  product  of  the  weight  of 
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(a)  TIME  STEP  1 


(bl  TIME  STEP  2 


(cl  TIME  STEP  3 


FIGURE  18  EXAMPLE  OF  TARGET  DISTRIBUTION  EVOLUTION 
AROUND  A  LAND  MASS 
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(b)  TIME  STEP  2 


FIGURE  19  EXAMPLE  OF  TARGET  DISTRIBUTION  EVOLUTION  NEAR  A 
CHOKE  POINT 


the  generating  position  polygon  and  the  weight  of  the  generating  velocity 
polygon,  P(J)  =  PP  x  PC.  Then  control  returns  to  subroutine  MOVMENT. 

When  land  is  defined,  subroutine  CONCLDE  calls  subroutine 
POSINT  to  determine  whether  the  predicted  position  polygon  intersects 
any  land  mass.  POSINT  calls  subroutine  RECTAN  to  compute  the  rectangle 
circumscribing  the  predicted  position  polygon.  The  input  parameters  of 
RECTAN  are: 

11  The  index  of  the  first  vertex  of  the  polygon 

12  The  index  of  the  last  distinct  vertex  of  the  polygon 

X  The  array  in  which  the  x  coordinates  of  the  polygon 

are  stored 

Y  The  array  in  which  the  y  coordinates  of  the  polygon 

are  stored. 

The  output  parameters  of  RECTAN  are: 

N  The  value  of  the  largest  y  coordinate  of  the  polygon 

E  The  value  of  the  largest  x  coordinate  of  the  polygon 

S  The  value  of  the  smallest  y  coordinate  of  the  polygon 

W  The  value  of  the  smallest  x  coordinate  of  the  polygon. 

Thus  N,E,S,  and  W  determine  a  circumscribing  rectangle  with  vertices 
(N,E),  (S.E),  (S , W) ,  and  (N,W). 

Next,  subroutine  POSINT  initializes  the  variables,  FLAG1 
and  LANINT  so  that  they  are  TRUE. 

The  D0-1000  loop  is  over  the  number,  LAN,  of  defined  land 
masses.  At  the  J-th  iteration  of  the  DO-IOOO  loop,  the  rectangle  circum¬ 
scribing  the  predicted  position  is  tested  for  overlap  with  the  rectangle 
circumscribing  land  mass  J.  This  is  accomplished  by  evaluating  function 
MINIMAX.  MINIMAX  =  TRUE  only  when  there  is  no  overlap  between  the 
rectangle  circumscribing  polygon  A  and  the  rectangle  circumscribing 
polygon  B.  The  input  parameters  to  MINIMAX  are: 

N  The  value  of  the  largest  y  coordinate  in  polygon  A 

E  The  value  of  the  largest  x  coordinate  in  polygon  A 

S  The  value  of  the  smallest  y  coordinate  in  polygon  A 
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The  value  of  the  smallest  x  coordinate  in  polygon  A 
LN  The  value  of  the  largest  y  coordinate  in  polygon  B 

LE  The  value  of  the  largest  x  coordinate  in  polygon  B 

LS  The  value  of  the  smallest  y  coordinate  in  polygon  B 

LW  The  value  of  the  smallest  x  coordinate  in  polygon  B. 

When  MINIMAX  =  TRUE,  the  predicted  position  polygon  does  not  intersect 
land  mass  J,  and  no  further  operation  in  the  DO- 1000  loop  is  executed. 
When  MINIMAX  =  FALSE,  an  intersection  with  land  mass  J  is  possible; 
thus,  the  next  operation  of  the  DO-1000  loop  is  to  test  the  predicted 
position  polygon  for  a  nonempty  intersection  with  land  mass  J.  In  order 
to  make  the  test,  the  DO-100  loop  copies  the  distinct  vertices  of  land 
mass  J  from  arrays  LAX  and  LAY  into  XW  and  YW,  respectively,  so  that 
IUCALC  may  be  called.  The  intersection  is  computed  by  a  call  to  IUCALC. 
When  control  returns  to  POSINT,  JMAX  is  evaluated.  JMAX  =  0  indicates 
that  the  intersection  is  empty,  whence  no  further  operation  in  the 
DO-1000  loop  is  executed. 

JMAX  >  0  indicates  that  the  intersection  is  nonempty.  In 
this  event  the  weights  of  the  generating  position  and  velocity  polygon 
are  checked  to  determine  if  the  predicted  position  polygon  is  a  positive 
or  negative  information  area.  In  the  case  of  a  negative  information 
polygon,  subroutine  REMAIN  is  called.  In  the  case  of  a  positive  informa¬ 
tion  polygon  subroutine  GOLDSEC  is  called. 

Given  a  polygon,  Q,  stored  in  arrays  RX,  RY,  and  IR  as  if 
output  by  IUCALG,  subroutine  REMAIN  computes  those  porlions  of  Q  outside 
all  land  masses.  Polygon  Q  is  computed  in  REMAIN  from  an  input  polygon 
contained  in  arrays  XPC  and  YPC;  from  the  centroid,  (XCEN,  YCEN),  of  the 
input  polygon;  and  from  a  scale  factor,  ALPHA. 

The  DO- 1000  loop  computes  Q  using  Eq .  (39).  The  1)0-4000 
loop  is  over  the  number  of  land  masses.  At  iteration  1L  of  the  00-4000 
loop,  the  number,  NO,  of  polygons  currently  stored  in  RX,  RY,  IR  is  de¬ 
termined.  The  DO-3000  loop  is  over  NO. 

At  iteration  IP  of  the  00-3000  loop,  the  IP- 1 1 1  polygon  in 
RX,  RY,  IR  is  tested  for  intersection  with  land  mass  IL,  REGTAN  is 
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called  to  compute  the  rectangle  circumscribing  polygon  IP.  Function 
MINIMAX  is  applied  to  the  rectangles  circumscribing  polygon  IP  and  land 
mass  IL.  At  this  point,  if  the  polygon  does  not  intersect  the  land  mass, 
the  polygon  is  copied  into  arrays  XWO  and  YWO  by  subroutine  INTO  and  no 
further  operation  in  the  DO-3000  loop  is  executed.  If  a  nonempty  inter¬ 
section  between  the  polygon  and  land  mass  is  still  possible,  the  negative 
intersection  of  the  land  mass  with  the  polygon  is  determined  by  a  call 
to  IUCALC.  If  no  error  is  detected  (in  fact,  if  JMAX  >  0),  the  last 
operation  of  the  DO-3000  loop  copies  the  result  into  arrays  XWO  and  YWO 
by  calling  subroutine  INTO. 

Next,  the  DO-4000  loop  copies  the  polygons  computed  by 
the  DO-3000  loop  from  XWO  and  YWO  to  RX  and  RY,  respectively.  The  last 
operation  of  the  DO-4000  loop  transfers  the  index  of  the  start  of  each 
polygon  and  the  number  of  vertices  in  each  polygon  from  NUM  to  IR. 

Thus  the  portions  of  Q  outside  all  land  masses  are  deter¬ 
mined.  These  are  called  the  remainder  polygons,  and  the  x  and  y  coordi¬ 
nates  of  the  IP-th  remainder  polygon  are  stored,  respectively,  in 

XW0(NUM(1,REM(1,LL)+IP)+I)  and  YW0(NUM( 1,REM(1,LL)+IP)+I) , 

1  S  I  ^  NUM(2,REM(1,LL)-FIP). 

The  last  operation  in  REMAIN  computes  the  area  of  the 
largest  polygon  in  the  remainder  polygons.  As  currently  implemented, 
the  subroutine  does  not  incorporate  the  negative  contribution  of  holes 
in  calculating  the  areas  of  the  remainder  polygons. 

Subroutine  INTO  has  as  input  parameters  arrays  XS,  YS, 
and  IS  (which  are  assumed  to  contain  a  set  of  polygons  as  if  output  by 
IUCALC);  and  JMIN,  JMAX,  LL,  MAXPOL,  IP,  and  IL.  Given  these  input 
parameters,  the  00-3000  loop  of  INTO  copies  polygon  JO,  JMIN  •  JO  i.  JMAX, 
from  XS  and  YS  into  XWO  and  YWO,  respectively.  Tile  x  and  y  coordinates 
of  polygon  JO  are  stored,  respectively,  in  XWO(NUM( 1 ,KO)+I)  and 
YWO(NUM( 1 ,KO)+I) ,  where 

1  £  I  £  NUM(2,K0) ,  REM( 1 , LL)+MAXPOL  +  1  -  KO  REM( 1 , LL)  +  MAXPOL  + 
JMAX-JMIN+1,  and  NUM(2,K0)  =  IS(2,JO). 


INTO  then  updates  NUM,  REM,  and  MAXPOL. 
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Given  an  input  polygon,  P,  contained  in  arrays  XPC  and 
YPC,  subroutine  GOLDSEC  uses  the  method  of  Golden  Section  to  generate  a 
polygon  Q  according  to  Eq.  (59)  such  that  the  largest  remainder  polygon 
in  Q,  q*,  has  area  close  to  that  of  the  input  polygon.  Thus  the  method 
of  Golden  Section  determines  an  optimal  scale  factor.  The  subroutine 
first  computes  the  area,  A,  and  the  centroid,  (XCEN,YCEN),  of  the  input 
polygon.  The  stopping  criterion,  ACLOS,  is  also  computed.  Subroutine 
GOLDSEC  returns  control  to  POSINT  whenever  the  area  of  q*  is  within 
ACLOS  of  A.  In  order  to  apply  the  method  of  Golden  Section,  upper  and 
lower  bounds  on  the  optimal  scale  factor  must  be  determined;  thus 
GOLDSEC  next  determines  upper  and  lower  bounds  for  the  optimal  scale 
factor.  The  lower  bound  for  the  optimal  scale  factor  is  always  one. 
GOLDSEC  determines  the  area  of  q*  when  the  scale  factor  generating  Q  is  1. 
This  is  accomplished  by  the  first  call  to  subroutine  REMAIN.  If  the 
stopping  criterion  remains  unsatisfied,  the  DO-IOOO  loop  is  executed. 

The  D0-1000  loop  determines  an  upper  bound  for  the  optimal  scale  factor. 

At  each  iteration,  the  DO-IOOO  loop  computes  a  larger  scale  factor,  NEXT; 
determines  the  area  of  the  corresponding  q*  by  calling  REMAIN;  and  com¬ 
pares  the  area  to  A.  The  iterations  continue  until  the  stopping  criterion 
is  satisfied;  or  the  area  exceeds  A,  in  which  case  NEXT  is  the  upper 
bound  for  the  optimal  scale  factor  and  control  is  transferred  to  label 
1100;  or  the  upper  limit,  KAY,  of  the  DO-IOOO  counter  is  exceeded.  In 
the  event  KAY  is  exceeded,  the  subroutine  gives  the  operator  the  option 
of  returning  to  label  100  of  the  main  program  or  continuing  the  calcula¬ 
tion  of  the  upper  bound. 

Label  1100  marks  the  beginning  of  the  Golden  Section 
iterations.  The  upper  and  lower  bounds  of  the  optimal  scale  factor  are, 
respectively,  NEXT  and  SCALE.  The  DO-3000  loop  determines  a  new  interval 
containing  the  optimal  scale  factor,  computes  a  new  scale  factor,  deter¬ 
mines  the  area  of  the  q*  corresponding  to  this  new  scale  factor,  and 
compares  this  area  to  A.  The  iterations  continue  until  the  stopping 
criterion  is  satisfied  or  the  upper  limit,  KAY,  of  the  DO-3000  counter 
is  exceeded.  In  the  event  KAY  is  exceeded,  the  subroutine  gives  the 
operator  the  option  of  accepting  one  of  the  last  two  scale  factors 
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generated,  or  returning  to  label  100  of  the  main  program,  or  continuing 
the  Golden  Section  iterations. 

b.  Velocity  and  Land  Interaction 

Subroutine  MOVECEN  calls  the  land  interaction  algorithm 
and  stores  the  recomputed  velocity  distribution  in  distribution  (2,M1,N). 
The  DO-4000  loop  is  over  the  number  of  polygons  in  the  velocity  distribu¬ 
tion.  At  iteration  J1  of  the  DO-4000  loop  when  land  is  defined,  the 
centroid,  (X0,Y0),  of  predicted  polygon  J1  is  computed.  Then  the  DO-3000 
loop  is  executed.  The  DO-3000  loop  is  over  the  number  of  land  masses. 

At  iteration  IL  of  the  DO-3000  loop,  (XO,YO)  is  checked  for  containment 
within  land  IL.  This  check  is  accomplished  by  the  following  operations. 
First  a  call  to  function  MINIMAX  determines  whether  (X0,Y0)  is  contained 
in  the  rectangle  circumscribing  land  IL.  When  (X0,Y0)  is  not  contained 
in  the  rectangle,  no  further  operation  of  the  1)0-3000  loop  is  executed. 
When  (XO,YO)  is  in  the  rectangle,  containment  in  land  IL  is  possible. 
Consequently,  function  ENSYD2  is  called  to  determine  if  (X0,Y0)  is  in 
land  IL. 

If  (XO,YO)  is  not  in  land  IL,  no  further  operation  of  the 
DO-3000  loop  is  executed.  Otherwise,  two  copies  of  polygon  J1  are  gene¬ 
rated  such  that  their  centroids  are  not  in  any  land  mass.  First,  the 
operator  associates  to  each  copy  a  proportion  of  the  weight  assigned  to 
polygon  Jl.  [CPROB(l)  and  CPR0B(2)  are  the  proportions  associated  with, 
respectively,  the  counterclockwise  and  clockwise  copies.]  Next,  sub¬ 
routine  NEWCEN  is  called  to  compute  a  centroid  of  each  copy  outside  all 
land  masses.  ( VX( 1) , VY( 1) )  and  ( VX(2) , VY( 2) )  are  the  centroids,  re¬ 
spectively,  of  the  counterclockwise  and  clockwise  copies. 

Subroutine  NEWCEN  implements  the  algorithm  for  computing 
centroids  outside  of  land  masses  described  in  the  previous  section.  The 
DO-3000  loop  is  executed  twice,  once  for  each  copy.  The  variable  TIME 
counts  the  absolute  number  of  candidates  generated  for  a  particular  copy. 
When  TIME  exceeds  COUNT,  the  display  operator  has  the  option  of  return¬ 
ing  control  to  label  100  of  the  main  program  or  continuing  the  iterations. 
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The  DO- 2000  loop  iteratively  computes  a  candidate  for  the  centroid  (XI, Yl), 
and  then  checks  it  for  containment  in  any  land  mass.  The  check  is  pri¬ 
marily  accomplished  by  the  DO-1000  loop.  This  loop  also  recomputes  the 
variables,  D1  and  D2,  controlling  the  angle  between  successive  centroid 
candidates . 

When  control  returns  to  MOVECEN,  the  DO- 1000  loop  is  exe¬ 
cuted.  At  iteration  K,  the  DO-1G0G  loop  computes  a  copy  of  polygon  J1 
with  its  centroid  at  (VX(K.)  ,VY(K.)) ,  After  the  copy  is  computed,  VEC  is 
called  to  draw  it  on  the  display,  TUT  is  called  to  store  it  as  polygon  JJ 
of  distribution  (2,Ml,N);  and  its  weight  is  computed,  P(J)  =  P(J1)  * 
CPROB(K).  After  the  D0-400Q  loop  finishes  execution,  subroutine  UPDATE 
is  called  to  compute  distribution  statistics. 
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IV  POLYGON  RESEARCH  COMPUTER  PROGRAM 


A.  General 

This  section  discusses  the  interactive  capability  of  the  computer 
program  used  to  test  the  algorithms  that  we  developed.  Appendix  A  lists 
the  FORTRAN  source  code  for  Program  POL.  This  program  controls  the 
graphics  terminal  and  calls  algorithm  subroutines.  All  of  the  subrou¬ 
tines  that  we  developed  are  in  Appendix  A.  Figure  20  shows  the  structure 
of  the  polygon  research  program.  Appendix  B  lists  the  FORTRAN  source 
code  for  IUCALC,  which  was  obtained  from  Oak  Ridge  National  Laboratory 
and  modified  for  the  CDC  6400. 

B.  Interactive  Capability 

The  computer  program  is  designed  to  be  used  in  an  interactive  mode 
on  the  Tektronix  4025  graphics  terminal.  When  the  binary  file  is  exe¬ 
cuted,  the  computer  initializes  variables,  teaches  the  terminal  certain 
function  keys,  and  draws  a  border  around  the  graphics  area. 

First,  the  computer  allows  the  operator  to  define  land  masses.  The 
following  message  is  printed  below  the  graphics  area: 

DEFINE  LAND  (Y  OR  N) 

The  computer  waits  for  the  operator  to  type  Y  (for  yes)  or  N  (for 
no).  When  the  operator  types  Y,  the  computer  responds  with  the  message: 

USE  LAND  FILE?  (Y  OR  N) 

If  the  operator  types  Y,  the  computer  assumes  that  a  properly  formatted 
file  named  TAPE9  is  available  to  be  read  with  an  unformatted  READ  state¬ 
ment.  If  the  user  types  N,  or,  after  reading  TAPE9  the  computer  prints 
the  message: 

DEFINE  LAND  FROM  TERMINAL?  (Y  OR  N) 
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FIGURE  20  STRUCTURE  OF  POLYGON  RESEARCH  PROGRAM 
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If  the  operator  types  Y,  the  computer  permits  the  vertex-by-vertex  input 
of  as  many  land  masses  as  space  permits.  After  inputting  a  land  mass 
from  the  terminal,  the  computer  queries: 

MORE  LAND?  (Y  OR  N) 

The  operator  may  input  another  land  mass  if  Y  is  typed.  If  the  operator 
types  N,  the  computer  will  respond  with: 

SAVE  LAND  ON  UNIT  10?  (Y  OR  N) 

Typing  Y  will  save  the  land  masses  currently  displayed  on  the  terminal 
on  a  local  file  named  TAPE10.  (Unless  saved  on  a  permanent  file,  TAPE10 
ceases  to  exist  at  the  end  of  the  terminal  session.)  When  the  computer 
prints: 

HOW  CLOSE  SHOULD  BE  THE  DIFFERENCE  IN  AREAS  (IN  PERCENT  OF 
INPUT  AREA)  F10.5 

The  operator  should  respond  with  the  percent  of  allowed  discrepancy  be¬ 
tween  the  area  of  the  predicted  position  polygon,  as  computed  by  the 
prediction  algorithm,  and  the  area  of  the  predicted  position  polygon 
after  land  interaction.  The  quantity  is  stored  in  CLOSE.  The  percent 
should  be  expressed  in  F10.5  format. 

Then  the  computer  prints  the  following  message  below  the  graphics 

area: 

FUNCTION:  DERLMCIUNPSVT 

and  waits  for  the  operator  to  respond  with  one  of  the  above  code  letters 
(followed  by  three  (or  fewer)  integers  (for  example,  D6,  1127,  or  V). 

The  code  letters  stand  for  functions  that  are  available  to  the  operator: 

D  Define  a  multipolygonal  probability  distribution. 

E  Draw  the  error  ellipse  associated  with  a  distribution. 

R  Redraw  a  distribution. 

L  Label  a  distribution. 

M  Translate  and  rotate  a  distribution. 

C  Change  the  polygon  weights  of  a  distribution. 

I  Perform  an  intersection  fusion  of  two  distributions. 
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U  Perform  a  union  of  two  distributions. 

N  Perform  a  negative  intersection  fusion  of  two  distribu¬ 
tions. 

P  Calculate  the  conditional  probability  of  one  distribu¬ 
tion,  given  another  distribution. 

S  Display  the  amount  of  space  left  in  the  distribution 
arrays. 

V  Change  to  velocity  space. 

T  Set  the  time  step  or  calculate  the  predicted  target 
distribution. 


In  addition  to  the  capability  implied  by  the  above  letter  functions,  the 
terminal  is  taught  certain  function  keys: 


PT 

] 

RUB  OUT 


/ 


Shift  ERASE 


Send  the  position  of  the  cursor  to  the  computer 
and  print  an  asterisk  at  the  point. 

Designate  the  last  point  of  a  polygon  (type 
before  using  PT). 

Erase  the  entire  graphics  area,  including  the 
border. 

Redraw  the  border. 

Draw  erase  vectors. 

Draw  solid  line  vectors . 

Draw  dashed  line  vectors. 


The  remainder  of  this  section  discusses  the  use  of  the  letter-functions. 


1.  Defining  a  Distribution 

A  multipolygonal  probability  distribution  is  defined  by  typing 
D  and  the  number,  N,  of  the  target  distribution  (N  =  1,  9);  for  example, 
D6  will  define  target  distribution  number  6.  The  computer  then  returns 
the  following  message: 

PO  EL  PS  SE  GA  BO  RB  CZ 

and  the  operator  picks  one  of  the  above  letter  combinations  and  types  it 
on  the  terminal.  The  letter  combinations  stand  for  various  kinds  of 
polygons  as  shown  in  Figure  21  and  described  below: 
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(a)  DISTRIBUTION  ELEMENTS 


GAUSSIAN 

APPROXIMATION 


ZONES 


(bl  PROGRAMMED  DISTRIBUTIONS 
FIGURE  21  DEFINING  DISTRIBUTIONS 


PO  Arbitrary  polygon  that  has  each  vertex  designated  by  the 
operator.  The  vertices  may  be  entered  clockwise  or 
counterclockwise. 

EL  Elliptical  polygon  of  16  sides.  The  center  is  designated 
first,  then  the  end  of  the  major  axis,  and  finally  the 
end  of  the  minor  axis  (the  direction  of  the  minor  axis  is 
not  important,  only  the  magnitude  is  used). 

PS  Pie  slice  polygon.  The  center  point  and  the  end  of  the 

radius  at  the  midpoint  of  the  angle  are  designated.  Then 
the  value  of  the  angle  is  typed  in. 

SE  Sector  polygon.  The  center  point,  the  end  of  the  outer 
radius,  and  the  end  of  the  inner  radius  are  designated, 
and  the  angle  of  the  sector  typed  in. 

GA  Gaussian  approximation  distribution.  The  2-sigma  ellipse 
is  designated  as  in  EL  above.  The  distribution  is  a 
weighted  combination  of  the  1,2,3-sigma  elliptical 
polygons. 

BO  Bearing-only  distribution.  The  origin  and  the  maximum 
likely  range  (in  the  direction  of  the  bearing  line)  is 
designated,  then  the  bearing  sigma  is  typed  in.  The 
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computer  draws  the  1-  and  2-sigma  polygons.  The  2-sigma 
polygon  is  drawn  with  the  designated  range  plus  10  per¬ 
cent.  The  polygons  are  weighted  to  simulate  normally 
distributed  bearing. 

RB  Range  and  bearing  distribution.  The  origin  and  the  range/ 
bearing  point  are  designated,  then  the  range  and  bearing 
sigmas  are  typed  in.  The  two  polygons  are  weighted  to 
represent  the  1-  and  2-sigma  contours  of  normal  distributions 
in  range  and  bearing. 

CZ  Convergence  zone  distribution.  The  center  and  the  outer 

radius  of  the  first  zone  is  designated.  The  operator  sup¬ 
plies  the  weights  for  the  two  zones. 

After  designating  a  polygon  (PO  EL  PS  SE) ,  the  computer  asks 
the  operator  to  type  in  a  weight  for  the  polygon.  If  a  height  is  desired 
instead,  then  the  operator  types  in  0  and  the  computer  will  ask  for  the 
height  of  the  polygon.  Both  height  and  weight  are  relative  measures  and 
are  normalized  by  the  computer. 

Upon  receiving  the  polygon  weight  the  computer  returns  the 

message: 

MORE  POLYGONS?  (Y  OR  N) 

If  the  operator  wishes  more  polygons  in  the  multipolygonal  distribution, 
then  he  types  in  Y  for  yes.  Both  the  polygonal  elements  (PO  EL  PS  SE) 
and  the  pre-programmed  distributions  (GA  BO  RB  CZ)  can  be  used  to  build 
complex  distributions.  Upon  typing  N  for  no,  the  computer  normalizes 
the  weights  and  calculates  and  saves  the  statistics  of  the  distribution. 
When  finished  with  these  computations,  the  computer  prints  out  the 
normalized  weight  of  each  polygon  in  the  distribution,  prints  the  pre¬ 
viously  discussed  FUNCTION  statement,  and  waits  for  a  new  letter  code. 

The  distribution  is  always  a  position  distribution  (L  =  1)  unless  the 
operator  puts  the  program  in  the  velocity  mode  (L  =  2)  just  prior  to 
using  the  D-function. 


2.  Drawing  an  Error  Ellipse 

The  2-sigma  error  ellipse  (a  16-sided  polygon)  of  a  multipoly¬ 
gonal  distribution  is  drawn  by  typing  E  and  the  number  of  the  distribu¬ 
tion  (for  example,  E6).  The  distribution  must  have  been  previously 


defined.  The  ellipse  is  centered  on  the  mean  of  the  distribution.  If 
the  operator  wishes  the  ellipse  to  be  drawn  with  a  dashed  line,  he  pushes 
the  @  key  before  typing  E6. 


3.  Redrawing  a  Distribution 

A  previously  defined  distribution  may  be  drawn  again  by  typing 
R  and  the  number  of  the  distribution  (for  example,  R6).  This  function 
is  useful  when  the  display  is  cleared  by  pushing  RUB  OUT  so  that  distribu¬ 
tions  can  be  redrawn  as  desired. 

4.  Labeling  a  Distribution 

The  order  of  the  polygons  in  a  distribution  can  be  labeled  by 
typing  L  and  the  number  of  the  distribution  (for  example,  L6).  The 
integer  labels  (1  for  Polygon  1,  etc.)  are  placed  on  the  first  vertex  of 
each  polygon. 

5.  Moving  a  Distribution 

A  distribution  may  be  translated  and/or  rotated  by  typing  M 
and  the  number  of  the  distribution  (for  example,  M6).  The  computer  then 
puts  the  cursor  in  the  graphics  area  and  two  points  are  designated  by 
the  operator.  The  first  point  is  the  point  around  which  the  rotation 
takes  place;  it  is  also  the  start  of  the  translation  vector.  The  second 
point  is  the  end  of  the  translation  vector.  The  computer  then  asks  for 
the  angle  of  rotation.  The  distribution  is  rotated  around  the  first 
point  designated,  then  it  is  rigidly  translated  according  to  the  vector. 
Finally,  the  distribution  statistics  are  recalculated.  Although  the  old 
points  of  the  distribution  are  still  in  the  XY-arrays,  there  is  no 
mechanism  to  retrieve  them;  only  the  newly  moved  distribution  is  avail¬ 
able  to  the  operator. 

6.  Changing  Polygon  Weights 

The  weights  of  polygons  can  be  changed  by  typing  C  and  the 
number  of  the  distribution  (for  example,  C6).  The  computer  asks  for 


the  weight  (or  height)  of  each  polygon,  and  when  finished,  normalizes 
the  weights  and  calculates  the  statistics. 

7.  Fusing  Two  Distributions 

The  fusion  of  two  distributions  into  a  third  distribution  is 
performed  by  typing  I  or  N  and  the  numbers  of  the  distributions  being 
fused  and  the  number  of  the  resultant  distribution.  For  example,  the 
intersection  of  Distribution  4  with  Distribution  6  (the  result  saved  as 
Distribution  7)  is  denoted:  1467.  The  negative  intersection,  4*6,  is 
denoted:  N467.  If  the  output  distribution  is  not  designated,  then  the 
result  is  put  in  Distribution  9. 

Usually  the  display  is  cleared  before  typing  in  the  fusion 
function  because  if  the  input  distributions  are  still  on  the  CRT,  then 
the  output  polygons  cannot  be  seen  because  they  lie  on  top  of  the  input 
polygons.  The  program  computes  the  vertices  of  the  output  polygons, 
their  weights,  and  the  distribution  statistics. 

8.  Conditional  Probability 

The  conditional  probability  of  one  distribution,  given  another 
distribution,  is  calculated  by  typing  C  and  the  numbers  of  the  two  dis¬ 
tributions.  For  example,  the  conditional  probability  of  Distribution  6, 
given  Distribution  4,  is  denoted:  P64.  The  output  is  printed  below  the 
graphics  area  and  looks  like  the  following: 

PROB  OF  6  GIVEN  4  =  .27 

The  algorithm  really  computes  a  number  that  is  proportional  to  the  condi¬ 
tional  probability;  only  when  the  first  distribution  is  a  single  polygon 
does  the  algorithm  return  a  number  that  is  always  between  zero  and  one. 

9.  Array  Status 

The  memory  status  of  the  arrays  can  be  checked  at  any  time  by 
typing  in  S.  The  computer  returns  a  message  that  gives  the  amount  of 
space  left  in  the  various  arrays;  for  example: 
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MEMORY  LEFT: 

POINTS  ...  1370 
POLYGONS  ...  195 
STATISTICS  ...  864 

"Points"  refers  to  the  X  and  Y  arrays;  "Polygons"  refers  to  the  P,  H, 
XCEN,  YCEN,  IA,  IB  arrays;  and  "Statistics"  refers  to  the  SE  array. 

10.  Velocity  Space 

A  velocity  distribution  can  be  defined  by  typing  V,  and,  after 
the  computer  responds  with  the  FUNCTION  statement,  typing  D  and  the  num¬ 
ber  of  the  distribution  for  which  velocity  is  defined.  The  velocity  dis¬ 
tribution  is  defined  the  same  as  a  position  distribution.  The  polygons 
that  are  drawn  represent  the  uncertainty  of  the  centroid  of  the  position 
distribution  one  time  step  into  the  future.  The  V-function  can  also 
precede  other  functions.  For  example,  to  get  an  error  ellipse  of  the 
velocity  distribution  associated  with  Distribution  6,  type  V  then  type 
E6.  The  program  is  automatically  returned  to  position  space  after  a 
function  is  performed. 

11.  Changing  Time 

The  time  index  is  changed  for  all  distributions  by  typing  TO 
and  the  time  step  desired.  For  example,  T03  changes  the  time  to  Step  3. 
The  time  step  remains  the  same  until  changed;  time  is  initialized  to 
Step  1. 


12.  Prediction 

The  predicted  position  and  velocity  of  a  target  distribution, 

N,  at  time  step,  M,  are  calculated  by  typing  TNM,  (N  =  1,  9;  M  =  1,  4). 
Distribution  N  must  be  defined  for  time  step  M.  For  example  if  distribu¬ 
tion  6  has  been  defined  at  time  step  2,  T62  calculates  the  predicted 
position  and  velocity  of  target  6  at  the  next  time  step,  3. 

The  screen  is  erased  and  the  specified  input  distribution  is 
redrawn.  When  the  predicted  position  polygon  will  be  a  positive  informa¬ 
tion  area,  the  computer  asks: 
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CALL  NUCUMUN  (Y  OR  N). 

A  response  of  Y  results  in  the  use  of  the  quick  algorithm  for  generating 
positive  information  predicted  position  polygons  and  is  usually  given 
when  the  input  position  polygon  is  convex.  A  response  of  N  results  in 
the  use  of  the  exact  algorithm  for  generating  predicted  position  polygons. 
Upon  calculation,  the  predicted  target  distribution  is  drawn  and  its 
statistics  are  saved.  The  computer  prints  the  normalized  weights  for 
each  polygon  in  the  distribution. 
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Appendix  A 

PROGRAM  POL  SOURCE  CODE 


A-l 


PROGRAM  POL< I NPUT , OUTPUT , TAPE5= 1 NPUT, TAPE6, TAPE8=OUTPUT, TAPE7, 

$  TAPE9, TAPEIO) 

LOGICAL  FLAG , LAND,  I NPUT<  2,5,9) 

DIMENSION  XC£N( 200 ) , YCEN(200) , I  A! 200) , IB(200) , JA ( 2 , 5 , 9 ) , JB ( 2 , 5 , 9 ) , 
S  X! 1400) , Y( 1400) , P( 200) ,H(200) , SE(900) ,KE(2, 5, 9), 

$  LJA( 1,1,1), LJB! 1,1,1), 

$  LI A( 200) , LIB(200) , 

S  XWC200) , YW1200) , 1 W ( 2 , 20 ) , SB ( 1 7 ) , CB ( 1 7 ) , XS ( 50 ) , YS ( 50 ) 

INTEGER  COUNT 

REAL  LAX ( 1400) , LAY ( 1400) ,  I NC , LN ( 200 ) , LE ( 200 ) , LSI  200) , LWI200) 

DATA  INPUT/90* . FALSE. / 

DATA  I NC, COUNT/O.  5,  1/ 

DATA  PI /3. 141592653/ 

DATA  M, N3/1 , 9/ 

DATA  I  LA , JLA , KLA/0 , 0,0/ 

WRITE! 6, 10) 

C  ENDFILE  6 

WRITEI8, 10) 

10  FORMAT! *$WOR  30  $GRA  2,29,2,79  SL  I  N  1*/ 

$  *SVEC  0,0  0,391  623,391  623,0  0,0*/ 

S  *$LEA  PT  “$REP  01"  13  42*/ 

S  *$LEA  )  93  08*/ 

$  *$LEA  127  "SERA  G“  13*/ 

S  *$LEA  «  "SVEC  000  391  623  391  623  0  0  0“  13*/ 

S  *SLEA  173  "$L  1  N  E"  13*/ 

$  **LEA  I  " $  L I N  1"  13*/ 

$  *SLEA  (s>  ” $ L 1 N  2“  13*) 

BB  =  2 . *P1 /I  6. 

DO  5  1=1,17 
B=BB*(  I  -1  ) 

SB! 1 ) =S I N I B ) 

5  CB! I )=COS!B) 

AN=  9HANGLE 
WE=9HWEI GHT 
HE=9HMEI GHT 
SGB=9HSI G  BRG 
SGR  =  9HS I G  RNG 
x  x 

**  LAND 

LAND= . F. 

WRI TE(6, 60) 

C  ENDFILE  6 

WRI TEf 8, 60) 

60  FORMAT!* DEFINE  LAND  !Y  OR  N ) * ) 

READ ! 5 , 14)  Q 
WRI TE(6, 14)  Q 
WRI TE t 7, 14)  Q 
WRI TE( 8,  14  )  O 
IF(G.EQ.IHY)  LAND=.T. 

IF! .NOT. LAND)  GOTO  100 

CAL'-  MESSAGC  <  7HP0L  ,  7HLANDEF  ) 

CALL  LANDEF ( LAX , LAY , L I  A , L I B , L JB , LN , LE , LS , LW ,  XW , YW ) 

WRI TEI6, 28) 

WRI TE! 8, 28) 

WRI TE ! 6 , 70) 

C  ENDFILE  6 

WRI  TE I  8, 70) 

70  FORMAT ! *HOW  CLOSE  SHOULD  BE  THE  DIFFERENCE  IN  AREAS  (IN  PERCENT*, 
S  *  OF  INPUT  AREA)  F10.5*) 

READ! 5, 75)  CLOSE 
75  FORMAT! FI  0. 5) 
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CL05E  =  Cl.OSE/100. 

WRITE (6, 85)  INC .CLOSE 
I  ENOF1LE  6 

WRITE! 7, 85)  INC. CLOSE 
C  ENDFILE  7 

WRITE! 8, 85)  INC, CLOSE 

85  FORMAT ( *  I NC=  *,G11.5,*  CLOSE=  *,G11  5) 

WR I TE  <  6 , 96 )  COUNT 
C  ENDFILE  6 

WR  \  TE  (  7 , 96 )  COUNT 
C  ENDFILE  7 

WRITE! 8, 96)  COUNT 

96  FORMAT! » THE  NUMBER  OF  ITERATIONS  ALLOWED  IS  *,  13,*,*) 

*  *FUNCT I  ON 

100  L= 1 

106  CONTINUE 

WR 1 TE ( 6 ,  12) 

WRITE! 8, 12) 

C  ENDFILE  6 

12  FORMAT ( / *FUNCT  I  ON  :  DERLMCl  UNPSVT*) 

101  READ ( 5  ,  14)  F,N,N2,N3 
WRITE! 6. 14)  F.N.N2.N3 
WRITE! 7, 14)  F.N.N2.N3 
WR I TE ( 8, 14)  F , N , N2 , N3 

14  FORMAT! A  1  ,311) 

1 F ( F . EQ .  1  HD  >  GO  TO  110 
IFIF.EQ  1  HE )  GO  TO  190 
IF1F.E0. 1HR)  GO  TO  200 
1  F !  F  .  EQ  .  1  HI.  )  GO  TO  205 
IFfF. EQ. 1HM)  GO  TO  210 
IFIF.EQ. 1HC)  GO  TO  220 
1F(F .EQ. 1HI )  GO  TO  230 
IF(F. EQ. 1HU)  GO  TO  235 
I F! F. EQ. 1 HN)  GO  TO  240 
IFIF.EQ.  1  HP)  GO  TO  250 
IFIF.EQ. 1HS)  GO  TO  260 
I  F ( r . NE .  1 HV )  GO  TO  105 
L  =  2  SGO  TO  106 

105  1  F  ! ;--  .  NE  .  1  HT  )  GO  TO  100 
M’N2 

IF(N.EQ.O)  GOTO  100 
GOTO  500 


* *DEF I NE  PROBABILITY  DISTRIBUTION 

1 1 0  JJ=0 

1  F('_.  EQ  .  2)  WRI  TE!  6,  1  8) 

IF(L. EQ, 2)  WRITE! 8, 18) 

18  FORMAT! *$L IN  2*) 

111  JJ  =  JJH 

WR I TE ( 6 , 20 ) 

C  ENDFILE  6 

WRI TE! 8, 20) 

20  FORMAT! *P0  EL  PS  SE  GA  BO  RB  02*) 

1 1 2  READ (5, 22)  FF 
WRITE! 6, 22)  FF 
WR 1 TE ( 7 , 22 )  FF 
WR I TE ! 8 , 22 )  FF 

22  FORMAT !A2) 

I F ( FF . EO . 2HF0 )  GO  TO  120 
I F ( FF . EQ , 2HEL )  GO  TO  125 


I F ( FF . EO . 2HPS )  GO  TO  130 
I F ( FF . EQ . 2HSE )  GO  TO  135 
I F ( FF . EQ . 2HGA )  GO  TO  140 
I F ( FF . EQ . 2HB0 )  GO  TO  145 
I F ( FF . EO . 2HRB )  GO  TO  150 
1 F ( FF , EQ . 2HC2 )  GO  TO  155 
GO  TO  112 

*  * 

** POLYGON 

120  I MAX=99 

CALL  GET (  1  MAX  ,  XW  ,  YW ,  XO ,  YO ,  R 1  , R2,D1 ,D2) 

121  CALL  VEC< 1 ,  1  MAX , XW , YW ) 

CALL  PUT  <  L , M , N , J  J ,  IMAX,XW,YW, 1  A , ! B , JA , JB , J , X , Y ,  I  LA , JLA ) 
PC J)=DATA(WE) 

I F ( P ( J  )  )  180,122,180 

122  HI =DATA( HE ) 

CALL  WE  I GHT (HI  ,J,P,  IA,  IB,X,Y> 

GO  TO  180 

«  ft 

*  *ELL I PSE 

125  I  MAX  =  3 

CALL  GET ( I  MAX , XW , YW , XO , YO , R 1  , R2 , D 1 , 02 ) 

CALL  ELLP <  XO , YO , R1  ,R2,D1 , 02 , SB , CB , XW , YW ) 

I MAX= 1 7 
GO  TO  121 

«  « 

«*P1E  SLICE 

130  !MAX=2 

CALL  GET ( I  MAX, XW, YW,XO, YO, R1  , R2, D1 , D2) 

R 1  =0. 

131  BSO^DATACAN) 

CALL  SECR ( P I  , BB , BSD, XO , YO , R1 , R2, 01 , 02, XW, YW,  I  MAX ) 

I F ( L . EQ . 1 )  GO  TO  121 
KO=KEC 1 ,M, N) 

XC=SE( 1 LKO) 

YC=SE ( 2+KO ) 

CALL  MOVE ( XO, YO, XC, YC,  0.  ,  1  ,  1MAX.XW.YW) 

GO  TO  121 

*  x 

*  *SECTOR 

135  I  MAX -3 

CALL  GET  < I  MAX , XW , YW , XO , YO , R 1  ,  R2 ,  D 1  ,  D2 ) 

GO  TO  131 

»  « 

*  *GAUSS I  AN  APPROXIMATION 

140  I  MAX  =  3 

CALL  GET ( I  MAX , XW , YW , XO , YO , R 1  ,R2,D1 ,02) 

SI = . 5*R1 
S2=  5*R2 
DO  142  NC=1 , 3 
R1 =S1 *NC 
R2=S2*NC 

CALL  ELLPCXO, YO, R1 ,R2,D1 , D2 , SB , CB , XW , YW ) 

I MAX= 1 7 

CALL  VEC (1,1  MAX , XW , YW ) 

CALL  PUT ( L , M , N , JJ,  I  MAX , XW, YW.  I  A ,  I B , J A , JB , J , X , Y ,  I  LA , JLA) 
142  JJ=JJ+1 
JJ=JJ-1 
PW=0ATA ( WE ) 

PC  J  )  =PW* . 225 
PCJ-1 ) =PW* . 536 


P<  J -2) =PW* . 239 
GO  TO  180 


*  *BEAR I NG  ONLY 

145  IMAX  =  2 

CALL  GET ( 1MAX, XW, YW, XO , YO, R1 , R2.D1 ,D2) 

R1  =0. 

R=R2 

BC=DATA ( SGB ) *  2 . 

DO  147  NC= 1 , 2 

BSD=BC*NC 

R2  =  R+R* .  1  * ( NC- 1  ) 

CALL  SECR ( P 1  , BB , BSD , XO , YO , R 1 , R2 , D 1 , 02 , XW , YW ,  I  MAX ) 
IFIL.EQ. 1 )  GO  TO  146 
KO=KE( 1 ,M,N) 

XC=SE( 1 +KO ) 

YC=SE ( 2+KO ) 

CALL  MOVE ( XO , YO , XC , YC , 0, , 1 , 1 MAX.XW, YW) 

146  CALL  VEC (1,1  MAX , XW , YW ) 

CALL  PUT(L,  M,  N,  JJ  ,  IMAX,  XW,  YW,  I  A .  I  B  ,  JA  ,  JB  ,  J  ,  X  ,  Y  ,  I  LA  ,  Jl.A  ) 

147  JJ=JJ+1 
JJ=JJ-1 

PW  =  DATA  C  WE ) 

P( J ) =PW* . 568 
P(J-1 ) =PW* . 432 
GO  TO  180 
x  x 

XX range  AND  BEARING 

150  I MAX=2 

CALL  GET <  I  MAX , XW , YW , XO , YO , R 1  , R2.D1 ,D2) 

RC  =  DATA  C  SGR  )  '<  R2x  .01 
BC  =  DATA ( SGB ) *  2 . 

R  =  R2 

DO  152  NC- 1 ,2 
D=RC«NC 

R 1 =R- D  SR2=R+D 
BSD'BC*NC 

CALL  SECR ( P I , BB , BSD , XO , YO , R 1 , R2 , D1 , D2 , XW , YW , IMAX) 

I F ( L . EQ . 1 )  GO  TO  151 
KO=KE< 1 ,M, N) 

XC=3E( 1 +K0) 

YC=SE( 2+KO) 

CALL  MOVEIXO, YO, XC . YC, 0.  ,  1 ,  1  MAX , XW, YW ) 

151  CALL  VEC( 1 , IMAX, XW, YW) 

CALL  PUTIL.M, N, JJ,  IMAX .XW, YW,  I  A ,  I B , J A , JB , J , X , Y ,  I  LA , JLA ) 

152  JJ=JJ+1 
JJ  =  JJ-  1 

PW  =  DATA ( WE ) 

P( J )=PW» . 651 
P ( J -  1  ) =PW* . 349 
GO  TO  180 
x  x 

xxCONVERGENCE  ZONES 
155  I  MAX  =  2 

CALL  GET! IMAX , XW , YW , XO , YO , R 1 , R2 , D1 , D2 ) 

DO  156  ND= 1 , 2 

R0  =  R2*  NO 

Rl =R0* ( 1 . - . 1 *ND ) 

CALL  SECR ( P I  , BB , 360 .  , XO , YO , R I  , RO , D 1  , D2 , XW , YW ,  I  MAX ) 

CALL  VECI 1 , IMAX, XW, YW) 

CALL  PUT(L,M, N, JJ ,  IMAX, XW, YW,  I  A ,  I B , JA , JB , J , X , Y ,  I  LA , JLA) 
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P< J)=OATA(WE> 

1F(P< J) .GT. 0. )  GO  TO  156 
HI =DATA( HE ) 

CALL  WE  I GHT (HI  , J,P,  IA,  I  B ,  X  ,  Y  ) 

156  JJ=JJ+1 
JJ=JJ-1 
GO  TO  180 

** 

**TEST  FOR  FINISH  AND  CALCULATE  STATISTICS 
180  WRITE (6, 24) 

C  ENDFILE  6 

WR I TE ( 8 , 24 ) 

24  FORMAT C *MORE  POLYGONS?  (Y  OR  N)*) 

READ! 5, 14)  Q 

WR I TE (6, 14)  Q 
WRI TE(7, 14)  Q 
WRITE! 8, 14)  0 
1 F ( Q . EQ  1 HY )  GO  TO  111 

185  J1=JA(L,M,N) 

J2=JB(L,M,N> 

CALL  NORM! J1 , J2,P) 

186  CALL  MOM( J1  , J2,  I  A,  IB, X, Y, P, H, EX, EY , EXX, EYY, EXY, XCEN, YCEN) 
IFCEXX.GT.O.  AND.EYY.GT.O. )  GO  TO  187 

WRI TEC  6, 25) 

C  ENOFILE  6 

WR I TE ( 8 , 25 ) 

25  FORMAT ( *NEGAT I VE  VARIANCE*/) 

GO  TO  100 

187  CALL  EIGENCEXX, EYY, EXY, R1 , R2,D1 , D2> 

CALL  SAVE ( L , M , N , EX , EY , R 1 ,R2,D1 , D2 , EXX , EYY , EXY . SE , KE , KLA ) 
INPUTCL.M, N) = . T. 

WRI TEC  6, 28) 

WR I TE ( 8 , 28 ) 

C  ENDFILE  6 

WRI TEC  8, 28) 

28  FORMAT  C  *$L I N  1*) 

GO  TO  100 

*  x 

**DRAW  ERROR  ELLIPSE 
190  KO=KE(L,M, N) 

EX  =  SE  C 1 FKO ) 

EY  =  SE ( 2+KO ) 

R 1 =SE ( 3IK0 ) 

R2=SE(4+KO) 

D1 rSEC5+K0) 

D2  =  SE  C  6?  KO ) 

CALL  ELLPC  EX , EY , R1  , R2, D1  , D2 , SB , CB , XW , YW ) 

CALL  VECC 1 , 17,XW,YW) 

WRI TEC  6, 28) 

WRI TEC  8, 28) 

GO  TO  100 

*  * 

* *REPEAT  DISTRIBUTION 

200  CALL  DRAW(L,M,N,  I  A,  IB, JA, JB,X,Y,P> 

WRI TEC  6, 28) 

GO  TO  100 

*  x 

*  xLABEL  POLYGONS 

205  J 1 = JAC  L, M, N) 

J2  =  JBC  L , M , N) 

JC  =  0 
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DO  206  J  =  J1  ,  J2 
JC=JC+1 
I  1  =  I  AC J) 

X 1 =X  < I  1 ) 

Y 1  =  Y  <  I  1  ) 

206  WR I TE ( 6 , 30  >  X1,Y1,JC 
WR 1 TE ( 8 , 30 )  XI ,Y1 , JC 

30  FORMAT ( *$VEC  * , 2( F 1 0 . 0 , 1 X ) , *$STR  #*,11  *#*) 

GO  TO  100 

** 

**MOVE  DISTRIBUTION 

210  I  MAX  =  2 

CALL  GET (  I  MAX, XW, YW,XO, YO, R1 , R2, 01 , D2) 

XC*X0+R2*D1 
YC=Y0+R2*D2 
ANG=DATA( AN) 

J1=JA'L,M,N> 

J2=JB(L,M, N) 

DO  21 1  J=J1 , J2 
I  1  =  I  A ( J) 

I2=1B(J) 

211  CALL  MOVE( XO , YO, XC , YC, ANG , 1 1 , 1 2, X , Y ) 

CALL  DRAW (L,M,N,IA,1B,JA,JB,X,Y,P> 

WRI TE ( 6 , 28) 

WR I TE ( 8 , 28 ) 

GO  TO  186 

*  * 

** CHANGE  WEIGHTS 
220  J 1 =  JA ( L , M , N ) 

J2=JB(L,M,N) 

DO  223  J  =  J1 , J2 

JP=J-J1+1 

XS( J)=P(J)/H(J) 

WRI TEC  6, 32)  JP 
WRI TEC  8, 32)  JP 

32  FORMAT ( *WE I GHT  OF  *,12) 

READ  C  5 , 33 )  PCJ) 

WRITEC6.33)  PCJ) 

WR I TE  C  7 , 33 )  PCJ) 

WRITEC8.33)  PCJ) 

33  FORMAT ( FI  0. 0) 

IFCPCJ))  223,222,223 

222  WRI TEC6, 38)  JP 
WRI TEC  8, 38)  JP 

38  FORMAT ( *HE 1 GHT  OF  * ,  I  2 ) 

READ C  5 , 33 )  HI 
WRI TEC  6, 33)  HI 
WRI TEC  7, 33)  HI 
WRI TEC  8, 33)  HI 

CALL  WE  I GHT ( H I  ,J,P,  IA,  IB,X,Y) 

223  CONTINUE 

CALL  NORM C  J 1  , J2.P) 

DO  225  J=J1 , J2 
225  H< J)=PC J)/XS( J) 

GO  TO  186 

*  * 

*  *FUS I  ON  (INTERSECTION,  UNION,  AND  NEGATIVE  INTERSECTION) 
230  KL=2  *G0  TO  241 
233  KL= 1  SGO  TO  241 

240  KL=4 

241  JPI=JA(L,M,N) 


r 


T 


JP2=JB!L,M, N) 

J01=JA(L,M,N2) 

JQ2  =  JB!L,M,  N2) 

JJ  =  0 

DO  249  JP=JP1 , JP2 
DO  249  JQ=JQ1 , JQ2 

CAL!..  OAMKL,  JP,  JQ,  IA,  IB  ,  X,  Y  ,  XW,  YW,  IW,  JMAX) 

!F( JMAX) 255, 249, 243 
243  HPQ=H( JP)*H( JO) 

DO  248  JO= 1 , JMAX 
IO=IW(l,JO) 

IM=IW!2, JO) 

DC  246  I  =1 . IM 
XS(  I  )=-XW!  I  +  10) 

246  YSC 1 ) = YW ( I +10) 

I M= I M+ 1 
XS( IM)=XS! 1 ) 

YS! IM)=YS( 1 ) 

CALL  VEC ( 1 , IM, XS, YS) 

JJxJJ+1 

CALL  PUT ( L , M , N3 , J J ,  I M, XS, YS . I  A . I B , JA, JB , J , X , Y ,  I  LA, JLA) 

248  P! J)=HPQ*AREA!XW, YW, IW, JO) 

249  CONTINUE 
N=N3 

GO  TO  185 
x  x 

XX  CONDITIONAL  PROBABILITY 

250  PROB=0. 

JP1 =JA(L,M, N) 

JP2=JB(L,M,N) 

JQ1=JA(L,M,N2) 

JQ2= JB ( L , M , N2 ) 

DO  254  JP=  JP1 , JP2 
DO  254  JQ=JOI,JQ2 

CALL  0AK(2, JP, JQ, IA, 1 B , X , Y , XW, YW , IW, JMAX) 

IF< JMAXI255, 254, 251 

251  HPQ=H<  JP ) x H ( JQ ) 

DO  252  J0= 1 , JMAX 

252  PROB  =  PROB  +  HPQx AREA ( XW , YW ,  IW,  JO) 

254  CONTINUE 
PROB=PROB/ABS ( H ( JP1 ) ) 

WR I TE  <  6 , 34 )  N, N2, PROB 
WRITE! 8, 34)  N,N2,PROB 

34  FORMAT ( *PROB  OF  *,I2,*  GIVEN  «, I2,x  =x,F5.2) 

GO  TO  100 

255  WRITE (6, 35)  JMAX 
WRITE! 8, 35)  JMAX 

35  FORMAT! x I UCALC  ERROR  *,I3) 

GO  TO  100 

x  x 

xxSTATUS 

260  I C0= 1 400- I  LA 
JC0=200- JLA 
KC0=900-KLA 

WRITE! 8, 36)  ICO,JCO,KCO 
WRITE (6, 36)  ICO.JCO.KCO 

36  FORMAT! xMEMORY  LEFT:»,3X, 

*  x  POINTS. . . x, 14, 3X, 

*  «  POLYGONS ,  . » ,  I  3 , 3X , 

*  x  STATISTICS. . . x, 13) 

GO  TO  100 


1 

! 

i 

\ 
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*  *PRED I CT I  Of  I  ALGORITHM 
500  CONTINUE 
Ml -M+ I 
WR I TF ( 8 , 48  > 

WRITE! 6,48) 

48  FORMAT! *$ERA  G* > 

WRI TE(8,50> 

WRITE (6, 50) 

50  FORMAT! *$LlN  4»> 

CALL  DRAW ! 1 ,M,N, IA, I B , JA , JB, X , Y , P ) 

CAL L  DRAW (2,M,N.IA,I8,JA,JB,X,Y,P) 

IF! .NOT. LAND)  GOTO  700 
WR I TE i 6 , 55 ) 

WR I TE ( 8 , 55  > 

55  FORMAT! *$LlN  8*) 

LAN=LJB( 1,1,1) 

DO  600  J=1 , LAN 
I  1  =L I A ( J ) 

I 2  =  L I B<  J  > 

CALL  VEC< I  1 ,  12, LAX, LAY ) 

600  CONTINUE 
700  CONTINUE 

WR I TE ( 6 , 28 ) 

C  ENDFILE  6 

WR i TE ( 8 , 28 ) 

CALI-  MESSAGC  (  7HP0L  ,  7HM0VMENT  ) 

CALL  MOVMENTIM.N, JA, JB.X.Y, 1A, 1 B , P , XCEN, YCEN, 

S  XW, YW, J,  I  LA, JLA, FLAG. SE, KE , KLA, H , LAX , LAY, LI A, LIB, 
S  LAN  ,  LANO  ,  LN ,  (..£  ,  LS  .  LW  ,  I  NC  ,  CLOSE  ) 

CALL  MESSAGA 1 7HP0L  ) 

IF! . NOT. FLAG)  GOTO  100 

CALL  MESSAGC ! 7HP0L  , 7HMOVCEN  ) 

CALL  MOVECEN ! M , N , JA , JB , X , Y ,  1  A ,  I B , P , SE , KE , KLA . 

S  XW, YW, J,  I  LA, JLA, XCEN, YCEN, H, LAX. LAY, LI  A, LIB, 

S  LAM , LAND , LN , LE , LS , LW , I NPU  T , COUNT , FLAG) 

CALL  MESSAGA (7HP0L  ) 

GOTO  100 
END 


FUNCTION  FXIC) 
FX=3+8* ( C-2> 

RETURN 

END 

FUNCTION  FY!R) 

FY  =  7+14*1 29 "R ) 

RETURN 

END 

FUNCTION  COL ( X ) 
COL-2 . 5+  C  X'3 . )/8. 
RETURN 
END 

FUNCTION  ROW ! Y ) 

ROW  *  29 . 5  -  ( Y  *  7 .  )  /  1 4  . 

RETURN 

END 
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FUNCTION  DATA! A) 

WR I TE ( 6 , 200 )  A 
C  ENDFILE  6 

WR 1 TE ( 8, 200 )  A 
READ (5, 300)  DATA 
WRI TE( 6 , 300)  DATA 
WRITE! 7, 300)  DATA 
WRITE! 8, 300)  DATA 
200  FORMAT (A9) 

300  FORMAT (FI  0 . 0 ) 

RETURN 

END 

SUBROUTINE  GET! I M, X, Y , X I , Y 1 , R1 , R2 , D1 , D2 ) 

DIMENSION  X(1).Y(1),R(3) 

100  FORMAT ! *S  JUM  15,40*/*SW0R  K*> 

200  FORMAT! *P01 NT*) 

300  FORMAT ! 8X, F3. 0, 1X.F3.0, 1X,A1 ) 

400  FORMAT! *SMON  K* ) 

500  FORMAT! 13!4!*$VEC  * , 2F7 . 0, *$STR  136*)/)) 

WRITE! 6, 100) 

C  ENDFILE  6 

WR I TE! 8, 100) 

DO  10  1  =  1,  I M 
WRI TE! 6, 200) 

C  ENDFILE  6 

WRITE! 8, 200) 

READ! 5, 300)  ROW,COL,SYM 
X! I ) =FX ! COL ) 

Y! I) =FY ! ROW ) 

1 F ( SYM . EQ . 1  HI )  GO  TO  30 
10  CONTINUE 

DO  20  1 =2, IM 
P=X ! I ) -X! 1  ) 

Q=Y! I  ) -Y (  1  ) 

20  R< I )=SQRT(P*P+Q*Q> 

X 1 =X ! 1 )  *Y1=Y!1) 

R 1 =  R!3) 

R2=R!2) 

D1 *!X(2) -X! 1 ) )/R2 
D2= 1 Y ( 2 ) -Y ! 1 ) )/R2 
GO  TO  40 
30  1 M= 1 + 1 

X! IM)=X( 1 ) 

Y! IM ) = Y ! 1 ) 

40  WR I TE I  6 , 400 ) 

C  ENDFILE  6 

WRITE! 8, 400) 

WRI TE(6, 500) (X! I),Y!I),I=1,IM) 

C  ENDFILE  6 

WRITE! 8, 500)  <X!I),Y!I),I=1,IM) 

RETURN 

END 

SUBROUTINE  PUT ! L , M , N , J J , IM.XW.YW, IA, I B , JA , JB , J , X , Y , IL.JL) 
DIMENSION  XW( 1 ) , YW! 1  ) ,  I  A! 1 ) ,  IB! 1  ) , JAI2, 5, 9) , JB(2,5, 9) , 

*  X! 1 ) , Y! 1 ) 

JL= JL+1 

I F ( J  J . EG .  I )  JA ! L , M, N ) r JL 

J=JB!L,M,N)=JL 

DO  10  1  =  1,  I M 


X( IL+I )=XW( I ) 

10  Y< IL+1 )=YW< I ) 

I A( J  )  =  I L+1 
1 L= 1 L+ I M 
I B ( J)=IL 
RETURN 
END 

SUBROUTINE  MOVE (XI ,Y1 , X2, Y2.ANG, 11 . I2,X,Y) 

DIMENSION  X( 1  )  ,  Y(  1  ) 

A=ANG*3. 1416/180. 

SA=S  I N ( A ) 

CA=COS( A) 

DO  10  1=11,12 
XI  =X( I  ) -XI 
Y  I  =  Y  ( 1  )  -Y 1 
X< I  1  =X2+X I *CA+Y I *SA 
10  Y ( I  ) = Y2+Y I »CA -X I *SA 
RETURN 
END 

SUBROUTINE  NORM( J 1 , J2 , P ) 

DIMENSION  P<  1  ) 

SUM  =  0 . 

DO  5  J= J1 , J2 
5  SUM'-SUM+P  (  J  ) 

I F ( SUM . LE . 0 . )  STOP  1 
DO  20  J=J1 , J2 
20  P(J)=P(J) /SUM 

CALL  P JOUT ( J 1 , J2, P) 

RETURN 

END 

SUBROUTINE  P JOUT ( J 1 , J2 , P ) 

0 1  MENS  ION  P ( 1 ) 

JM= J2- J 1 +1 

WRITE (6, 100)  (JC,JC=I,JM) 

WR 1 TE (7,1 00 )  (JC,JC=1,JM) 

WRITE (8, 100)  (JC,JC=1,JM) 

WRITE (6, 200)  (P(J),J=J1,J2> 

WR I TE ( 7 , 200 )  (P(J),J=J1,J2) 

WR 1 TE ( 8 , 200 )  <P( J) , J=J1 , J2) 
lOOFORMAK*  POLYGON:  *,9(14,3X)> 

200  FORMAT ( *  WEIGHT:  * , 9 ( F5 . 2 , 2X )  ) 

RETURN 

END 

SUBROUTINE  ELLP ( XC , YC , R1 , R2 , D1 , D2 , SB , CB , XW , YW ) 

DIMENSION  SB ( 1 > , CB ( 1 ) , XW ( 1 ) , YW ( 1 ) 

DO  10  1=1,17 
XB=R1 *SB( I ) 

YB=R2*CB( I ) 

XW( I ) =XC+XB»D2+YB*D1 
10  YW( I ) = YC+YB* D2 -XB*D1 
RETURN 
END 

SUBROUT  I NE  DRAW (L,M,N,IA,IB,JA,JB,X,Y,P) 

DIMENSION  IA(1),IB(1),JA(2,5,9),JB(2,B,9),X(1),Y(1),P(1) 
J  1  = JA( L , M , N) 

J2=  JB ( L , M, N) 
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00  20  J  =  J 1 , J2 
n  =  iA(  j) 

I  2= I B( J ) 

20  CALL  VEC( I  1 . I2.X.Y) 

CALL  P JOUT ( J 1 , J2.P) 

RETURN 

END 

SUBROUTINE  VEC < I  1 , 1 2, X, Y ) 

DIMENSION  X(1 > , Y<  1  ) 

WR I TE ( 6 , 560)  ( (X(l ),Y( I )), 1=11 , 12) 

C  ENDFILE  6 

WRITE (8, 560)  ((XII), Y<!>>, 1=11. J2) 

560  FORMAT (*$V£C  *,9(18F7.0,»  &  */)) 

RETURN 

END 

SUBROUTINE  MOM(J1 ,J2, IA, I B , X , Y , P , H, EX , EY , EXX , EYY , EXY , XCEN, YCEN ) 
DIMENSION  XCEN( 1  ) , YCEN( I  ),  IA( I ), IBI I ),X( I ),Y( 1 ),P( I ),H( 1 ) 
EX=EY=EXX=EYY=EXY=0. 

DO  55  J=J1 , J2 
I  1  =  I  AC J) 

I  2= I B ( J ) -  1 

CALL  MESSAGC ( 7HM0M  , 7HCENTRD  ) 

CALL  CENTRDI I  I  ,  I  2 , X , Y , A , AX , AY , AXX , AYY , AXY ) 

XCEN( J ) =AX/A 
YCEN ( J ) =  AY /A 
2=P( J)/A 
EX=EX+2*AX 
EY=EY+Z*AY 
EXX=EXX+2*AXX 
EYY=EYY+Z*AYY 
EXY  =  EXY+2*AXY 
H( J)=P( J)/ABS(A) 

55  CONTINUE 

EXX = EXX -EX* EX 
EYY  =  EYY -EY*EY 
EXY=EXY -EX*EY 
RETURN 
END 

SUBROUTINE  E I GEN( EXX , EYY , EXY , R1 ,R2,D1 ,D2) 

I  F  (  EXY  .  NE.  0.  )  GO  TO  70 
IF(EXX.GT.EYY)  GO  TO  60 
D1 =0.  SD2=1 . 

U=EXX  SV=EYY  SGO  TO  80 
60  01=1.  $02=0 . 

U=EYY  $V=EXX  SGO  TO  80 
70  EE=EXY*EXY 
P=EXX+EYY 

Q=SQRT( ( EXX - EYY ) *  *2+4 . *EE ) 

U=(P-Q)/2. 

V= (P+Q)/2. 

W=V-EXX 

D=SQRT(EE+W*W) 

D1 =EXY/D 
02=W/D 
80  R1 =0 . 

I F<  U/P . GT . 1 . E- 1 00)  R1 =2. *SQRT<U) 

R2=2 . *SQRT(V) 

RETURN 
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SUBROUTINE  SAVEC  L,  M,  N,  EX,  EY ,  R1 ,R2,D1 ,D2, EXX, EYY , EXY , SE , KE , KL ) 
DIMENSION  SE  C 1 ) , KE( 2,5,9) 

SEC 1 +KL) =EX 
SEC  2+KL ) ®EY 
SEC  3+KL ) =  R1 
SE ( 4+KL ) =R2 
SEC  5+KL ) =01 
SE  C  6+KL ) =02 
SEC  7+KL )  =  £XX 
SEC  8+KL ) =EYY 
SEC9+KL) =EXY 
KE  C  L, M, N) *KL 
KL-KL+9 
RETURN 
END 

SUBROUTINE  SECRCPI , BB, BSD, XC, YC, Ri , RO, RXO, RYO, XW, YW,  I  MAX) 
DIMENSION  XWC 1 ) , YWC 1 ) 

BS-BS0*PI /ISO. 

AL=ATAN2CRX0, RYO) -BS/2. 

IB=BS/BB+. 5 
IFCIB.LE .0)  I  B=  1 
BI=BS/IB 
I BO- I B+ 1 
1MAX=2« IBO+1 
DO  96  I = 1 ,  I  BO 
B=BI *  C I -1 ) +AL 
SBB=S I N ( B ) 

CBB=COSCB) 

XWC I )  =XC+RO*SBB 

YWC I )  =YC+RO*CBB 

1  F  (  R I  .  EQ  .  0  .  )  GO  TO  96 
J -  I  MAX* I 

XWC J) =XC+RI *SBB 

YWC J) =YC+RI *  CBB 
96  CONTINUE 

IFCRI  GT.O. )  GO  TO  96 
I MAX= I BO+2 
XWC IBO+1 )=XC 
YWC IBO+1 ) =YC 
98  XWC I  MAX ) =XW ( 1 ) 

YWC I  MAX )= YWC 1  ) 

RETURN 

END 

SUBROUT  I NE  OAK  CKL.JP.JQ.IA.IB.X.Y.RX.RY.IR,  JMAX ) 

D I  MENS ION  PX (  50 )  ,  PY  C  50 ) , OX C  50 ) , OY ( 50 ) , WK ( 300 ) , 

%  RXC1),RYC1),IRC2,1)1XC1),YC1),IAC1)IIB(1) 

NP=IBCJP)-IAC JP) 

NO=!BC JQ) -  I  AC JQ> 

1P=IA(JP)-1 
1 0= I  A ( JQ ) -  1 
DO  127  I  *  1 . NP 
PXC I )=X< l+IP) 

127  PYC I )*YC l+IP) 

DO  128  I » 1 , NQ 
QX  < I  ) =  X  C  1  + 1 Q ) 

128  QYC I >=YC l+IQ) 

CALL  I UCALC ( PX , PY , NP , OX , OY , NO , KL , WK , 300 , JMAX , I R , 20 . RX , RY , 200 ) 


RETURN 

END 


FUNCTION  AREAIXW, YW, IW, JO) 

DIMENSION  XW! 1 ) , YW( 1 ), IW<2, 1 ) ,XS(50) , YSI50) 
CALL  MESSAGA! 7HAREA  ) 

AREA=0 . 

10= IW( 1 , J0)+1 
I  MM=  I W ( 2 ,  JO )  + 1 W (  1  ,  JO )  -2 
XW1 =  XW( 10) 

YW1 = YW ( 10) 

DO  50  I  =  1 0 ,  1  MM 
BX  =XW ( 1+1 ) -XW1 
BY  =YW ( 1+1  ) - YW 1 
CX=XW( I +2) -XW1 
CY=YW( 1+2) -YW1 
A I  =  . 5* ( CX*BY -BX*  CY ) 

50  AREA= AREA+A I 

WRITE! 7 ,60)  AREA 
60  FORMAT! *AREA  IS  *,G15.5) 

CALL  MESSAGR! 7HAREA  ) 

RETURN 

END 


SUBROUTINE  WE  I GHT ( H , J , P ,  IA,  IB.X.Y) 

DIMENSION  P ( 1  ) ,  I  A ( 1  ) ,  1 B (  1  ) , X (  1  )  , Y  I  1  ) 

I  1  =  1  A! J  ) 

I  2= I B! J ) -3 
A  =  0. 

XI =X! 1  1  ) 

Y  1  =  Y  !  I  1  ) 

DO  50  1=11,12 
BX=X< I +1 ) -XI 
BY=Y ( 1+1 ) - Y 1 
CX=X( I +2) -XI 
CY  =  Y ( I +2) -Y 1 
A I = . 5* I CX*BY  BX*CY) 

A=A+AI 
50  CONTINUE 
P< J)=A«H 
RETURN 
END 

SUBROUT I NE  LANDEF ! LAX , LAY , L I  A , L I B , L JB , L  N , LE , LS , LW , 

*  XW, YW ) 

C 

C  LANDEF  AT  USER  OPTION  DEFINES  LAND  MASSES  BY  ACCESS  I NG  A  LAND  FILE  ON 

C  UNIT  9  OR  BY  TERMINAL  INPUT 

C 

DIMENSION  XW! 1 ) , YW! 1  I , LI  A! 200) , LIB! 200) , L JA (1,1,1), LJB! 1,1,1) 

LOGICAL  FLAG 

REAL  LAX! 1400) , LAY! 1400) , LW! 200) , LN(200) , LE! 200) , LS! 200) 

DATA  LlL,LJL/0,0/, JJ, J2/0,0/ 

DATA  12/0/ 

CALL  MESSAGA! 7HLANDEF  ) 

WRITE! 6, 7) 

WRI TE(8, 7) 

7  FORMAT (*SL IN  8*) 

LJB! 1 , 1 , 1 ) =0 
FLAG= . F . 
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WRITE (8, 10) 

C  ENDF1LE  6 

10  FORMAT (*  USE  L.ANO  FILE?  (Y  OR  N)  *) 

READ ( 5 , 20 )  Q 
WRITE (6, 20)  Q 
WR I TE ( 7 , 20 )  Q 
WRITE (8, 20)  Q 
20  FORMAT { A 1  ) 

IFCQ.EQ. 1HY)  100,200 
100  CONTINUE 

REACH  9)  LAX, LAY, LI  A, LIB, LJA, LJB, LW.LE, LN, LS 
FLAG= . T. 

J2=LJB( 1,1,1) 

DO  130  J  = 1  , J  2 
I  1 =L I  A ( J ) 

I 2  =  L I B( J  ) 

CALL  VEC (11,12, LAX , LAY  ) 

130  CONTINUE 
200  CONTINUE 

WRITE (6, 30) 

WRITE(8, 30) 

C  ENDFILE  6 

30  FORMAT!*  DEFINE  LAND  FROM  TERMINAL?  (Y  OR  N)*) 

READ ( 5 , 20 )  0 
WR I TE ( 6 , 20 )  Q 
WRITE! 7, 20)  Q 
WRITE (8, 20)  Q 
I F ( Q . EQ  1 HY )  300,400 
300  CONTINUE 

I  Ft  FLAG)  320,325 
320  CONTINUE 
JJ  =  J2 

325  CONTINUE 
1 MAX  =  99 
JJ=JJ+1 

CALL  GET! I  MAX , XW , YW , XO , YO , R 1  , R2.D1  ,D2> 

CALL  VEC! 1 , IMAX,XW,YW) 

CALL  PUT!  1  ,  1  ,  1  ,  JJ,  I  MAX,  XW,  YW,  L  I A ,  US ,  L  JA ,  L  JB ,  LJ  ,  LAX,  LAY, 
*  12, J2) 

CALL  MESSAGC ( 7HLANDEF  , 7HRECTAN  ) 

CALL  RECTAN!  1  ,  I  MAX  ,  XW  ,  YW  ,  LN  (  L  J  )  ,  L  E  (  L  J  )  ,  LS  ( 1.  J  )  ,  LW  (  L  J  )  ) 
CALL  MESSAGA! 7HLAMDEF  ) 

WR 1 TE (6,40) 

C  ENDFILE  6 

WR I TE (8,40) 

40  FORMAT! 'MORE  LAND’  (Y  OR  N>*> 

READ ( 5 , 20 )  Q 
WRITE! 6, 20)  Q 
WR 1 TE ( 7 , 20 )  Q 
WRITE (8, 20)  0 
IFIO.EQ  1HY)  GOTO  325 
400  CONTINUE 

WRI TE(6, 50) 

WRI TE(8, 50) 

50  FORMAT!*  SAVE  LAND  ON  UNIT  10?  (Y  OR  N ) * ) 

READ ( 5 , 20 )  0 
WR I TE ! 6 , 20 )  Q 
WRITE! 7, 20)  Q 
WRITE! 8, 20)  Q 
IFfQ.EQ. 1HY)  500,600 
500  CONTINUE 

WRI TE! 1 0)  LAX, LAY , L I  A , I  I B  L J A , L JB , LW , LE , LN , LS 
ENDFILE  10 
600  CONTINUE 

CALL  MESSAGR! 7HLANDEF  ) 

RETURN 

END 
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SUBROUTINE  MOVMENTIM, N, JA  ,  JB ,  X  ,  Y ,  I  A ,  I  B ,  P, XCEN, YCEN, 

XW, YW, J,  I  LA, JLA, FLAG, SE . KE , K LA , H , LAX , LAY , L ! A , L 1 B , 

LAN , LAND , LN , LE , LS , LW ,  I NC , CLOSE  > 

POSITION  DISTRIBUTION  IS  MOVED  TO  ACCOUNT  FOR  THE  PASSAGE  OF  TIME 
INCORPORATING  SPEED  AND  COURSE  UNCERTAINTY  AND  LAND  INTERACTION. 

LOGICAL  FLAG, LAND, LAN  I  NT 

D I  MENS  ION  JA(  2 , 5,  9 )  ,  JB  (2,5,9)  ,X(  1  )  ,  Y(  I  ),  IAU  ),  IBI  1  ), 

PCI) , XCEN ( 1 ) , YCEN( 1 ) , XW ( 1) , YW ( 1 ) , SE ( 1) , H (1 ) , I W ( 2 , 1 ) , 

KE (2,5,9), WK ( 300 ) , RX( 200) , RY( 200)  , 

1 R( 2, 20) , XPC( 200) , YPC<  200) , XC( 200) , YC( 200) , XS( 200) , YS( 200)  , 

I S ( 2 , 20 ),L1A(1 ),LIB(I ) 

REAL  LAX ( 1 ) , LAY ( 1) , LN ( 1 ) , LE ( 1 ) , LS ( 1 ) , LW ( 1 ) , I NC 
DATA  I R( 1 ,  1  )/0/ 

CALL  MESSAGA ( 7HM0VMENT ) 

FLAG= . T. 

SUB=7HM0VMENT 
Ml =M+ 1 
JJ  =  0 

JA2= JA( 2 , M, N) 

JB2= JB( 2 , M , N ) 

JA1 =JA( 1 ,M, N) 

JB1 =  JB ( 1 ,M,N) 

DO  1000  NC= JA2 , JB2 
I A2= I A( NC ) 

I B2= 1 B ( NC ) 

I C2= I B2- I A2+1 
PC  =  P  ( NC ) 

DO  900  NP= JA1 , JB1 

GENERATE  THE  VELOCITY  POLYGON  WITH  RESPECT  TO  POSITION  POLYGON.  THE 
RESULT  IS  STORED  IN  XC,YC. 

SENC1 =XCEN(NC) -XCEN(NP) 

SENC2-YCENINC)  YCEN(NP) 

SE1 =  -SE( 1+KEI  1  ,M,N) )+XCEN(HP) 

SE2=-SE(2FKE( 1 , M, N) ) +YCEMI NP ) 

DO  100  1=1A2, IB2 
IU-I -1A2+1 
XC( 1U)=X( I ) +SE1 
YC(  I  U )  =  Y  (  I  )  +.SE2 
CONTINUE 
WR I TE (6,6) 

WR I TE (8,6) 

FORMAT! «*L IN  5*) 

CALL  VEC( 1 , I C2.XC, YC) 

I A I = IA(NP) 

IBI = IB(NP) 

I  C 1  =  I B 1 -IA1  +  I 
PP=P(NP) 

IF( CPP. LT. 0. ) . AND. (PC. LT. 0. ) )  GOTO  900 
IFIPP.LT. 0. )  GOTO  500 
IFtPC.LT.O. )  GOTO  700 
CONTINUE 

TWO  POSITIVE  INFORMATION  AREAS. 

GENERATE  CUM( NP , NC ) , SEE  DOCUMENTATION.  RESULT  IS  STORED  IN  XS.YS 
WR I TE (7,7) 

FORMAT ( » THE  CENTROID  POLYGON  WITH  RESPECT  TO  THE* 


oooooo  o  oooo 


$  *  POSITION  POLYGON  IS  *) 

WRITE! 7, 8)  ( XC ( I  ) , YC ( 1  ) ,  I = 1  ,  I C2  > 

8  FORMAT (5CG13. 6,G13.6)) 

C  ENDF1LE  7 

WRITE! 6, 19) 

WR I TE <  7 , 19) 

WRI TE( 8, 19) 

19  FORMAT ( *CALL  NUCUMUN  (Y  OR  N)*) 

READ ( 5 , 30 )  Q 

WRI TEC  6, 30)  0 

WRITE! 7, 30)  O 

WR I TE ( 8 , 30 )  Q 

IFCQ. EO.  1HN)  GOTO  250 

CALL  MESSAGC  (  7HP  I  AAM  ,  7ITNUCUMUN  ) 

CALL  NUCUMUN ( NP , NC,  I  A ,  I B , X . Y , XW , YW , XS , YS ,  I S ,  I W, XCEN, YCEN, 

$  WK, XC, YC , FLAG, XPC , YPC,  I  Cl  , JMAX) 

CALL  MESSAGA! 7UM0VMENT) 

GOTO  300 
250  CONTINUE 

30  FORMAT (Al) 

CALL  MESSAGC (7HP I AAM  , 7HCUMUN  > 

CALL  CUMUNl NP, NC ,  1  A,  l B , X . Y , XW , YW , XS , YS ,  IS.  I W, XCEN, YCEN, 

$  WK, XC, YC, FLAG, RX , RY, I R. JMAX > 

CALL  MESS  AG  A  (  71 IMOVMENT  ) 

GENERATE  P 1 AAM ( NP , NC ) =  CUM(NP.NC)  U  NC(C)  U  NP(C)=OUTER  BOUNDARY 
OF  CUMC NP, NC) -CLOCKWI SE  TURN ' MG  POLYGON  STORE  RESULT  IN  XPC, YPC 

1 F ( .NOT. FLAG)  RETURN 
CALL  MESSAGC!  7HP I  AAM  ,  7HSEI.ECT  ) 

KAY  = -  1 

CALL  SELECT (KAY, JMAX.XS.YS,  IS, XPC, YPC,  I  Cl  ) 

CALL  MESSAGA ( 7HM0VMENT ) 
lF(KAY.NE.O)  GOTO  300 
WRITE! 6, 15) 

WR I TE <  7,  15) 

ENDF1LE  7 
WRITE(8, 15) 

15  FORMAT! * ERROR  IN  P 1 AAM  CALCULATION*) 

FLAG= . F. 

CALL  MESSAGR ( 7HM0VMENT ) 

RETURN 

300  CONTINUE 

CALL  CONCLDE ( M 1  , N , JA , JB , X , Y ,  1  A ,  I B , P, 

*  XCEN,  YCEN,  J  ,  1  LA  ,  JL  A  ,  FI.  AG  ,  SE  ,  KE  ,  KL  A  ,  H  ,  LAX  ,  LAY  ,  LI  A, 

$  LIB, LAN, LAND, LN, LE,  l.S, LW,  I NC, CLOSE, J J ,  I  Cl  , XPC, YPC, 

*  PP, PC, XW, YW,  I W, RX, RY ,  I R, XS. YS,  I S, LAN  I  NT) 

GOTO  900 

500  CONTINUE 

POSITION  POLYGON  IS  A  NEGATIVE  INFORMATION  AREA 
TRANSLATE  THE  NEGATIVE  INFORMATION  POS I  T I  ON  AREA 
TO  HAVE  CENTROID  AT  ITS  VELOCITY  CENTROID. 

STORE  IN  XPC, YPC. 

DO  525  1  =  I  A 1  ,  IB1 
I U= I  - IA1+1 
XPC< I U) =X( I ) +SENC1 
YPC!  I U  >  = Y (  I  ) +SENC2 
525  CONTINUE 

CALL  MESSAGC! 7HN I AAMPO , 7HCUMUN  ) 


/ 
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WRI TE<  7, 8)  <XPC( 1 ) , YPC( I ) , 1 =1 , 1C1 ) 

ENDF1LE  7 

CALL  CUMUN ( NC , NP ,  1  A , 1 B , X , Y , XW , YW, XS , YS ,  I S , 

$  I W , XCEN , YCEN , WK , XPC ,  YPC . 

$  FLAG , RX , RY , I R , JMAX ) 

CALL  MESSAGA ( 7HMOVMENT > 

GENERATE  N1 AAM( NP . NC ) =  NP  t  C )  &  -CUM ( NP , NC ) = I NNER  BOUNDARY  OF 
CUM ( NP, NC ) =COUNT£RCLOCKW 1 SE  POLYGON.  STORE  RESULT  IN  XPC, YPC. 

I F( .NOT. FLAG)  RETURN 

CALL  MESSAGC ( 7HN I AAMPO , 7HSELECT  ) 

KAY= -2 

CALL  SELECT (KAY, JMAX, XS, YS, IS, XPC, YPC, 1C1 ) 

CALL  MESSAGA (7HM0VMENT) 

IF  KAY  =0  NIAAM  IS  THE  EMPTY  SET 

lF(KAY.EQ.O)  GOTO  900 

CALL  CONCEDE (Ml , N , JA , JB , X , Y ,  I  A ,  1 B , P, 

S  XCEN, YCEN, J,  I  LA , JLA , FLAG, SE , KE , KLA , H , LAX , LAY , L 1  A , L I B , 

$  LAN, LAND, LN, LE, LS, LW,  1 NC, CLOSE, J J ,  I  Cl  , XPC , YPC , PP , PC , XW , 

S  YW,  IW.RX.RY,  IR.XS, YS,  IS, LAN I  NT) 

I  F  (  .  NOT  .  FL-AG)  RETURN 
GOTO  900 
700  CONTINUE 

CENTROID  POLYGON  IS  A  NEGATIVE  INFORMATION  AREA 

CALL  MESSAGC ( 7HN I AAMCE , 7HCUMUN  ) 

CALL  CUMUN ( NP , NC ,  I  A ,  I B , X , Y , XW , YW , XS , YS ,  IS, 

S  1W, XCEN, YCEN, WK,XC,YC, FLAG, 

S  RX, RY, IR, JMAX) 

CALL  MESSAGA (7HM0VMENT) 

GENERATE  N1 AAM( NP , NC) =NC( C )  &  -CUM( NP , NC > = I NNER  BOUNDARY  OF 
CUM <NP,NC)= COUNTERCLOCKWISE  POLYGON.  STORE  RESULT  IN  XPC, YPC. 

IF (.NOT  FLAG)  RETURN 

CALL  MESSAGC (7HNIAAMCE, 7HSELECT  ) 

KAY --2 

CALL  SELECT ( KAY , JMAX , XS , YS , I S , XPC , YPC , I C 1) 

CALL  MESSAGA (7HM0VMENT) 

IF  KAY  =  0  NIAAM  IS  THE  EMPTY  SET 

IF(KAY.EG)  0)  GOTO  900 

CALL  CONCLDE <  M 1 , N , J A , JB , X , Y ,  I  A ,  I B , P , 

*  XCEN, YCEN, J ,  I  LA , JLA, FLAG , SE , KE , KLA , H , LAX , LAY , L I  A , L I B , 

*  LAN , LAND , LN , LE , LS , LW ,  INC, CLOSE , J  J ,  I C 1  , XPC , YPC , PP , PC , XW , 

*  YW,  I W, RX, RY ,  I R, XS, YS ,  IS, LAN  I  NT) 

I  F  (  NOT . FLAG )  RETURN 

900  CONTINUE 

1000  CONTINUE 

CALL  MESSAGC ( 7HM0VMENT , 7HUPDATE  ) 

CALL  UPDATE (Ml  , N . JA , JB , X , Y , I  A ,  1 B , P , XCEN , YCEN , 

$  J ,  I  LA , JLA, SE , KE , H, KLA,  FLAG ,  1  ) 

CALL  MESSAGA ( 7HMQ7MENT ) 

I F( .NOT. FLAG)  RETURN 
CALL  MESSAGR ( 7HM0VMENT ) 

RETURN 


/ 
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END 


SUBROUTINE  CONCLDE ( M I  ,  N ,  JA  ,  JB ,  X .  Y  ,  I  A,  I B, P, XCEN, YCEN, 

J,  I  LA, JLA , FLAG, SE, KE, KLA, H, LAX, LAY , L I  A , L I B , LAN , LANO , LN , 

LE, LS, LW,  INC, CI.OSE  JJ,  I  Cl  , XPC, YPC, PP , PC , XW , YW ,  I W, RX , RY , 

I R , XS , YS , IS, LAN! NT) 

CONCLDE  STORES  THE  RESULTING  POSITION  POLYGON  TAKING  ACCOUNT 
OF  LAND  INTERACTION. 

LOGICAL  FLAG, LAND, LAN I  NT 

DIMENSION  JA ( 2, 5, 9 ) ,  JB (2,5,9),X( I ),Y(1 ),  IA(  1  ), !B(1  ),P(1  ), 

S  XCEN ( 1  ) , YCENl 1) , XW ( 1) , YW ( 1) , H (  I) ,  1 W ( 2 ,  I ) , SE ( 1  ) , 

*  KE( 2, 5, 9 ) , WK ( I ) , RX( 1  ) , RY (1 ) ,  I R( 2,  1 ) ,  XPC( 1  ) , YPC<  1  )  , 

S  XS( 1 ) ,  YS( 1 ) ,  IS(2,  1  ) . XWG< 1400) , YWO( 1400) , 

*  NUM ( 2 , 200 ),LIA(1),LIB(1) 

REAL  LAX  (  1  )  ,  LAY  (  1  )  ,  L.N  (  1  )  ,  LE  (  1  >  ,  LS  (  1  )  ,  LW  (  1  )  ,  I  NC 
INTEGER  REM ( 2 , 20 ) , I NUM ( 50 ) 

DATA  REM(1 , 1 ) , NUM< 1 , 1 >/2*0/ 

CALL  MESSAGA ( 7HC0NCLDE ) 

I F(  NOT. LAND)  GOTO  900 
CALL  MESSAGC ( 7HC0NCLDE , 7HP0S I  NT  ) 

LAN=LJB( 1,1,1) 

CALL  POSI NT (XPC, YPC,  I  Cl  ,  LAX , LAY , L I  A , L I B , LAN ,  l.N, LE, LS, LW, XW 

*  , YW,  I W, RX, RY ,  I R, XS, YS,  I S, LAN I  NT,  INC, CLOSE, FLAG , XWO . YWO . 

*  NUM, REM,  I  REM,  I NUM, PP, PC) 

CALL  MESSAGA (7HC0NCLDE) 

I F( .NOT. FLAG)  RETURN 

WHEN  (XPC, YPC)  INTERSECTS  SOME  LAND  MASS ,( XWO , YWO > 

CONTAINS  POSITION  POLVQONS  DETERMINED  BY  (XPC, YPC)  AND 
THE  LAND  MASSES  ( LAX , LAY ) .  THE  CONTENTS  OF  (XPC, YPC) 

ARE  UNCHANGED.  1  REM  IS  THE  INDEX  OF  THE  OPTIMAL  SET  OF 
REMAINDER  POLYGONS.  I NUM (I  REM)  IS  THE  INDEX  OF  THE  LARGEST 
REMAINDER  POLYGON  IN  SET  ! REM .  THE  VARIOUS  SETS  OF 
REMAINDER  POLYGONS  ARE  SPECIFIED  BY  ( XWO , YWO , NUM , REM ) . 

IF  LANINT= . FALSE. , THEN  (XPC, YPC)  INTERSECTS  NO  LAND  MASS 

I F (  .NOT  LAN  1  NT)  GOTO  900 
IF( (PP.GT. 0. ) . ANO. (PC.GT.O. ) )  GOTO  800 
AR  =  0. 

THIS  COOE  HANOLES  NEGATIVE  INFORMATION  AREAS. 

J 1 =REM ( 1,1) 

J2  =  REM<2,  1  ) 

DO  600  J0= 1 , J2 
IS1 =NUM( 1 , J1 +J0) 

I  Cl =NUM( 2, J1 +J0) 

DO  500  I = 1 , I C 1 
XPC( I )=ROU(XWO( IS1+I ) ) 

YPC ( I ) =ROU ( YWO ( IS1+I ) ) 

500  CONTINUE 

I  Cl  =  I  Cl  +1 
XPC( I  Cl  ) =XPC< 1  ) 

YPC( I  Cl  ) =YPC( 1  ) 

WRI TE( 7, 60)  JO,  I  REM 

WRI TE( 7, 8)  (XPC( I  )  . YPC ( I  ) ,  I = 1  ,  I  Cl  ) 

C  ENDFILE  7 

WRI TE( 6, 40) 
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WRI  TE(8, 40) 

CALL  VEC ( 1 , 1 C 1 , XPC , YPC ) 

JJ=JJ+1 

CALL  PUT ( 1 ,M1 , N, JJ, I  Cl , XPC, YPC, 1  A ,  I B, JA, JB , J , X, Y , I  LA , JLA ) 
A=AREA(XW0, YWO, NUM, J1+J0) 

AR=AR+A 
P( J)=PP*PC*A 
IF(JO.EO.I)  JJ1=J 
1 F( JO . EO . J2 )  JJ2=J 
600  CONTINUE 

DO  700  J0=JJ1 , J J2 
P( JO)=P( JO)/AR 
700  CONTINUE 

CALL  MESSAGR ( 7HC0NCL0E ) 

RETURN 

800  CONTINUE 

WRITE! 7, 60)  1 NUM ( I  REM ) ,  I  REM 

60  FORMAT! *POLYGON  *,I3,«  IN  THE  OPTIMAL  REMAINDER  SET  *,13) 

JO  =  REM( 1 ,  I  REM ) H INUM! IREM) 

1S1 =  NUM( 1 , JO) 

1C1 =NUM(2, JO) 

DO  660  1  =  1,  I  C 1 

XPC! I ) =R0U ( XWO ! IS1+1  >  ) 

YPC!  I  )  -RQU  ( YV/O  (  IS1+1 ) ) 

860  CONTINUE 

900  CONTINUE 

I  Cl  =  1  Cl  +1 
XPC! IC1 ) =  XPC ! 1 ) 

YPC! IC1 ) = YPC 1 1 ) 

WRITE! 7, 8)  (XPC! I  ) , YPC! I ) ,  I =1 ,  I  Cl ) 

8  FORMAT! 5! G1 3. 6  G1 3 . 6) ) 

C  ENDF1LE  7 

WRI TE (6,40) 

WRI TE( 8, 40) 

40  FORMAT! *SL IN  1*) 

CALL  VEC! 1 , 1C1 , XPC, YPC) 

JJ=JJ+1 

CALL  PUT! 1 ,M1,N,JJ,1C1 , XPC, YPC,  I  A ,  I B , JA , JB , J , X , Y ,  I  LA , JLA) 
P( J)=PP*PC 

CALL  MESSAGR (7HCONCLDE) 

RETURN 
END 

LOGICAL  FUNCTION  COLL ( PARX , PARY ) 

COLL  IS  TRUE  WHEN  POINTS  IN  PARX , PARY  DO  MOT  FORM  A  PARALLELOGRAM. 

DIMENSION  PARX! 4), PARY! 4) 

CALL  MESSAGA ( 7HC0LL  ) 

COLL* . F. 

E  = . 0001 
EP=  1  . 

DO  50  1=1,3 
11=1+1 

DO  40  J=I 1 ,4 

IF! ( ABS ( PARX ( I ) -PARX ( J ) ) ,GT. EP> .OR. ( ABS ( PARY ( I > -PARY ( J ) )  GT.EP)) 

S  GOTO  39 
COLL* . T. 

CALL  MESSAGR (7HC0LL  ) 

RETURN 

39  CONTINUE 

40  CONTINUE 
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50  CONTINUE 

A1 =  PARY<  2) -PARY ( 1 ) 

B 1 =  PARX ( 2 ) - PARX ( 1 ) 

Cl  =  < A1 *PARX< 1  ) ) - ( PARY  <  1) *BI> 

A2=PARY (3) -PARY (4 ) 

B2  =  PARX <  3 ) -PARX ( 4 ) 

C2= ( A2*PARX ( 4 ) ) - ( PARY ( 4 ) *B2> 

I F ( ABS ( A2 ) . LT . E )  100,200 

100  CONTINUE 

I F  <  ABS ( ( Cl /B1  ) - ( C2/B2 ) )  , LT . EP)  COLL  = . T . 

CALL  MESSAGR (  7HC0L.L  ) 

RETURN 

200  CONTINUE 

I F  < ABS( (Cl /A1  ) - (C2/A2) ) . LT, EP)  COLL  = . T. 

CALL  MESSAGR  (  7HC0L.L  ) 

RETURN 

END 

SUBROUTINE  CUMUNING0N1 ,NG0N2, 1A, 1 B , X , Y , XW , YW , XS , 

*  YS, I S, I W , XCEN , YCEN , WK , PGX , PGY , FLAG , 

S  RX, RY , I R, JMAX ) 

GIVEN  POLYGONS  NG0N1  AMD  NG0N2 , GENERATE  CUM ( NGON 1 , NG0N2 ) . 

THIS  IS  THE  SET  RESULTING  FROM  MOVING  NG0N1  AROUND  THE  VERTICES 
OF  NG0N2.  FOR  EACH  J  EVALUATE  NGON 1  AT  VERTEX  J  OF  NG0N2, CALL 
IT  NGON I ( J ) .  UNION  TO  NGONI(J)  ALL  PARALLELOGRAMS  GENERATED 
BY  NGON 1 ( J  )  AND  NGONMJ  +  1).  TAKE  THE  UNION  OF  THIS  RESULT  OVER 
ALL  J.  CUM ( NGON 1 , NG0N2 )  ACTUALLY  EQUALS  THE  UNION  OVER  ALL  J 
OF  ALL  PARALLELOGRAMS  GENERATED  BY  NGONl(J)  AND  NGONKJ  +  1). 

BUT  SOMETIMES  WHEN  JUST  PARALLELOGRAM  UNIONS  WERE  USED, 
COMPUTATIONAL  PROBLEMS  CAUSED  MORE  THAN  ONE  FIGURE  TO  RESULT 
AT  INCONVENIENT  POINTS,  THIS  PROBLEM  WAS  ALLEVIATED  BY 
INCORPORATING  NG0N1CJ)  EXPLICITLY  IN  THE  CALCULATIONS. 

XS. YS  CONTAINS  THE  RESULT  CUM ( NGON 1 , NG0N2 ) , 

LOGICAL  COLL, FLAG, FLAG 1 

DIMENSION  X  < 1 ) , Y ( 1 ) ,  I  A ( 1 ) ,  I B ( 1  ) , XW ( 1 ) , YW ( 1 ) ,  I W ( 2 , 1  ) . XS ( 1 ) , 

S  YS ( 1 ) , PX ( 50 ) , PY ( 50 ) , OX ( 50 ) , OY ( 50 ) , WK ( 1 ) , PGX ( 1 ) , PGY ( 1 ) , 

S  PARX ( 4 ) , PARY ( 4 ) , RX  <  1  ) , RY ( 1  ) ,  I S ( 2 ,  1  ) ,  1 R ( 2 ,  1  ) , 

S  XCENU  )  ,YCEN(  1) 

PGX, PGY  CONTAINS  X  AND  Y  COORDINATES  OF  NG0N2 . M2  IS  THE  NUMBER  OF 
DIFFERENT  VERTICES  OF  NG0N2 

PX , PY  CONTAINS  NGON 1  AT  THE  J  VERTEX  OF  NG0N2 
OX , OY  CONTAINS  NGON 1  AT  THE  J+1  VERTEX  OF  NG0N2 
PARX, PARY  CONTAIN  THE  VERTICES  OF  PARALLOl  OGRAM  I.J 

CALL  MESSAGA( 7HCUMUN  ) 

I  A  1  =  1  A  (  NGON  1  ) 

M 1  =  I B ( NGON 1  ) -  I  A  1 
Ml  1 =M1 +1 

M2= I B ( NG0N2 ) -  I  A ( NG0N2 ) 

M22=M2+ 1 
M2 1 =M2- 1 
SUB  =  7HCUMUN 

XC 1 = -XCEN ( NGON 1 )+PGX( 1 ) 

YC 1 =- YCEN ( NGON 1 >+PGY( 1 ) 

DO  1500  J=1 ,M2 

XC2= -XCEN ( NGON 1 ) +PGX( J+1 ) 

YC2= - YCEN ( NGON 1 ) +PGY ( J+1 ) 

EVALUATE  AND  SAVE  NGONI(J)  AND  NGONKJ  +  1) 


oonfl  ooo  non 


C 

100 

120 


200 

220 

400 

500 

800 

820 

830 

840 


1000 

1200 


IF< J.EQ. 1 )  100,200 
DO  120  1=1 , M 1 
1A11=IA1+I-1 
PX( I  )=R0U(X(  I  A  1  1  )+XC1  ) 

PY( I  ) -R0U( Y ( I  A 1 1 ) +Y  C 1  ) 

CONTINUE 
PX ( M 1  I  ) =  PX( 1  ) 

PY (Ml  1  ) =PY( 1  ) 

GOTO  400 
CONTINUE 
DO  220  1 = 1 , M 1 1 
PX<  1  ) =QX ( I  ) 

PY< I ) =QY ( I ) 

CONTINUE 
CONTINUE 
DO  500  I  =  1  ,  M 1 
I  A 1  1  =  I  A 1  + 1  -1 
0X<  I  ) =  ROU ( X (  I  A 1  I  )+XC2) 

OY ( I  ) = ROU ( Y ( I A  1 1  ) +YC2 ) 

CONTINUE 
OX (Ml  1  ) =QX(  1  ) 

OY (Mil  ) =QY  <  1  ) 

CONTINUE 

00  1000  1=1 .Ml 

1 F( I . EO. 1 )  820, 840 

CONTINUE 

IW1 =M 1 

DO  830  K  =  1  ,  I  W 1 
XW(K) =PX(K ) 

YW<  K ) =  PY  <  K ) 

CONTINUE 

CONTINUE 

GENERATE  PARALLELOGRAM  1 

PARX ( 1 ) =PX( I ) 

PARY ( 1 ) =PY( I ) 

PARX ( 2 ) =PX ( 1+1 ) 

PARY ( 2 ) =  PY (  1+1  1 
PARX ( 3 ) =QX ( 1+1 1 
PARY ( 3 ) =QY ( 1+1 ) 

PARX ( 4 ) =QX ( I ) 

PARY ( 4 ) =QY ( I ) 

CALL  MESSAGC ( 7HCUMUN  , 7HC0LL  ) 

I F( COLL (PARX, PARY ) )  GOTO  1000 

GENERATE  UNION  OF  PARAL LELOGRAMS ( I , J ) , I = 1 , M 1 , s  XW,YW 
CALL  MESSAGC ( 7HCUMUN  , 7HPRE I U  1) 

CALL  PRE I U ( XW , YW , 1W1 , PARX . PARY , 4 , 1 , I S , XS , YS , SUB , FLAG , 

FLAG 1 , JMAX) 

CALL  MESSAGAI 7HCUMUN  ) 

I F (  NOT. FLAG)  RETURN 

CONTINUE 

CONTINUE 

UNION  XW , YW  WITH  PREVIOUS  RESULTS  STORE  RESULT  IN  XS , YS , AND  (WHEN 
RESULT  IS  ONE  POLYGON)  IN  RX , RY . 

I  F  < J  .EO.  1  )  1300,  1400 
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1300  CONTINUE 

1  R1  =  I  R(  2,  1  )  =  I W 1 
DO  1325  K  = 1  ,  I R 1 
RX(K)=XW(K) 

RY  (K ) =  YWCK ) 

1325  CONTINUE 
GOTO  1500 
1400  CONTINUE 

CALL  MESSAGC ( 7HCUMUN  , 7HPREI U  3) 

CALL  PREI UCRX, RY, I R1 , XW , YW , 1 W1 , 1 , I S , XS, YS , SUB , FLAG , FLAG1 , JMAX) 

CALL  MESSAGA ( 7HCUMUN  ) 

WHEN  J=M2, RESULT  COULD  BE  A  POLYGON  AND  A  HOLE  THIS  IS  THE  CASE 
WHEN  CUM  SURROUNDS  A  NONEMPTY  AREA.  THEN  FIND  RESULT  IN  XS.YS. 

I F< .NOT. FLAG)  RETURN 
1500  CONTINUE 

CALL  MESSAGR ( 7HCUMUN  ) 

RETURN 

END 

SUBROUTINE  PRE I U( XW, YW, I W 1 , PX , PY , Ml , KL , I S , XS , YS , 

*  SUB, FLAG, FLAG 1 , JMAX) 

LOGICAL  FLAG, FLAG 1 

D I  MENS ION  XW ( 1 ) , YW ( 1 ) , PX ( 1  ) , PY ( 1 ) , XS ( 1 ) , YS  < 1  ) , WK l 300 ) , 

$  I  S  (  2 ,  1  ) 

PRE I U  CALLS  IUCALC.  TESTS  JMAX  FOR  IUCALC  AND  CALLING  ROUTINE  ERRORS. 
THE  IUCALC  RESULT  IS  TRANSFEREO  TO  XW,YW. 

IF  ERROR  THEN  AN  APPROPRIATE  MESSAGE  IS  WRITTEN. 

SUB  CONTAINS  THE  NAME  OF  CALLING  ROUTINE. 

CALL  MESSAGAC 7HPREIU  ) 

FLAG= . T. 

FLAG1 i . T. 

WR I  TEC  7, 30)  ( XW ( I  ) , YWC  I ) , I  =  1  ,  I W1  ) 

WR I  TEC  7, 30)  (PXC 1  ) , PY <  I  ) ,  I =1  ,M1  ) 

CALL  MESSAGC ( 7HPRE I U  ,7H IUCALC  ) 

CALL  IUCALCCXW, YW, I W1 , PX , PY , Ml , KL.WK, 300, JMAX, I S , 20 , XS , YS , 200 ) 

CALL  MESSAGAC7HPREIU  ) 

I  Ft JMAX)  100,200,300 
100  CONTINUE 

WRITEC6, 15)  JMAX, SUB 
WR I  TEC  7,  15)  JMAX, SUB 
C  ENOFILE  7 

15  FORMAT! * IUCALC  ERROR  * , 13,*  OCCURS  IN  »,A7> 

WR 1 TE ( 6, 25 ) 

WR 1 TE ( 8 , 25 ) 

25  FORMAT C  *$L 1 N  7*) 

IWt 1= I W1+I 
XWC IW1 1 )=XWC 1 ) 

YWC IW1 1  ) = YW  C 1  ) 

Ml  1 =M1 +1 
PXCM1 1 )=PXC 1 ) 

PYCM1 1 )=PYC 1 ) 

30  FORMAT (5CG13.5.G13.5) ) 

CALL  VECC 1 , IW1 1 ,XW,YW) 

CALL  VECC 1 ,M1 1 , PX , PY ) 

FLAQ= . F. 

CALL  MESSAGR C 7HPRE I U  ) 

RETURN 

200  CONTINUE 

C  WRITE! 6, 40)  SUB, JMAX 

WR 1 TE (7,40)  SUB, JMAX 
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40  FORMAT ( A7, * RESULT  IS  THE  SAME  AS  ORIGINAL  DATA  OR  NO  RESULT  », 

S  *EX 1  STS .  *,  13) 

ENDF1LE  7 

RESULT  IS  THE  SAME  AS  ORIGINAL  DATA  OR  NO  RESULT  EXISTS 
FLAG1 - . F. 

CALL  MESSAGR ( 7HPRE 1 U  ) 

RETURN 

300  CONTINUE 

WRITE! 6, 50)  JMAX 
WRITE! 7, 50)  JMAX 
ENDFILE  7 

50  FORMAT! *PRE I U  CALLS  RECOVER  *,I3> 

CALL  RECOVER ( JMAX , XS ,YS, IS, XW , YW, I W1 , SUB ) 

CALL  MESSAGA ( 7HPRE I U  ) 

IF! JMAX. EO. 0)  FLAG1 = . F . 

CALL  MESSAGR! 7HPRE I U  ) 

RETURN 

END 

SUBROUTINE  SELECT ! K , JMAX , XS , YS ,  !S,XPC,YPC,  1C1  ) 

SELECT  EXTRACTS  THE  APPROPRIATE  POLYGON  FROM  CUM(NP.NC), 

STORES  IT  IN  ! XPC , YPC ) . 

IF  K= - 1  THE  OUTER  BOUNDARY  OF  CUM  IS  SELECTED , TH I S  IS  A  CLOCKWISE 
POLYGON  AND  PIAAM  AND  AREA . GT , 0 . 

IF  K=-2  THE  INNER  BOUNDARY, IF  IT  EXISTS, IS  SELECTED , TH I S  IS  A  COUNTER¬ 
CLOCKWISE  POLYGON  AND  NIAAM  AND  AREA . LT . 0 . 

K=0  IF  NIAAM  DOES  NOT  EXIST. 

DIMENSION  XS! 1 ) , YS! 1 ) , IS! 2, 1 ) , XPC! 1 ) , YPC! 1 ) 

CALL  MESSAGA (7HSELECT  ) 

IF! JMAX.EQ.O)  STOP  4 
IF! JMAX. EQ. 1 )  100,500 
100  1 F ( K . EQ . -1 )  200,300 
200  CONTINUE 

I  Cl  =  I  S  (  2,  1  ) 

DO  225  I =1  ,  I  Cl 
XPC! I ) =XS ! J ) 

YPC! I ) =YS( 1 ) 

225  CONTINUE 

WR 1 TE ( 7 , 1 0 ) 

10  FORMAT! *SELECT  CHOOSES  THE  POLYGON  DEFINED  BY  *) 

WRITE! 7,  15)  (XPC!  I  )  , YPC!  I  )  ,  1=1  ,  I  Cl  ) 

15  FORMAT (5(G13. 5.G13. 5) ) 

ENDFILE  7 

CALL  MESSAGR! 7HSELECT  ) 

RETURN 

300  CONTINUE 
K  =  0 

CALL  MESSAGR! 7HSELECT  ) 

RETURN 

500  CONTINUE 
MAX= JMAX 
00  600  J=1 , MAX 

CALCULATE  AREA  OF  POLYGON  IN  IUCALC  OUTPUT  FORMAT. 

CALL  MESSAGCt 7HSELECT  , 7HAREA  ) 

A=AREA( XS, YS, IS, J) 

CALL  MESSAGA! 7HSELECT  ) 
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IF((K  EQ. -1 > .AND. (A.LT.O. ))  GOTO  600 
I  Ft (K . EQ. -2) . AND. (A.GT. 0.  ) )  GOTO  600 
l 00- l S( 1 , J>+1 
tci =IS(2, J) 

10M= IS( 1 , J)+IC1 
DO  560  1=100, 1 OM 
IU  = I  -  100+1 
XPC(  lll)=XS(  1  ) 

YPC( I U) =YS( 1 ) 

560  CONTINUE 

WRITE(7, 10) 

WRITE (7, 15)  (XPC( I  ) , YPCt I ) , I  =  1 , I  Cl ) 

C  ENDF1LE  7 

CALL  MESSAGRt 7HSELECT  ) 

RETURN 

600  CONTINUE 
K  =  0 

CALL  MESSAGRt 7HSELECT  ) 

RETURN 
END 

SUBROUTINE  UPDATE (Ml  , N ,  JA , JB , X , Y ,  I  A ,  I B , P , XCEN , YCEN , 

*  J ,  I  LA , JLA , SE , KE , H , KLA , FLAG , L ) 

UPDATE  CALCULATES  STATISTICS  FOR  THE  NEW  DISTRIBUTION 

LOGICAL  FLAG 

D I  MENS ION  JA ( 2 , 5 , 9 ) , JB (2,5,9),X(1),Y(1),IA(1),1B(1),P(1), 

%  XCENt 1 ) , YCENf 1 ) ,SE< 1) ,KE<2, 5, 9) , H< 1 ) 

CALL  MESSAGAt  7HUPDATE  ) 

FLAG* . T, 

Jl = JAt  L,M1 , N) 

J2  =  JB ( L , Ml , N ) 

CALL  NORMt Jl , J2,P) 

CALL  MOMt Jl  , J2,  I  A,  I B , X , Y , P , H , EX , EY , EXX , EY Y , EXY , XCEN , YCEN ) 

I  Ft (EXX.GT. 0  )  , AND.  ( EYY . GT  0.  ) )  GOTO  100 
WRITEtG, 10) 

WRJ  TE( 7,  10) 

ENDFILE  7 

10  FORMAT (*NEGAT I VE  VARIANCE  WAS  COMPUTED  IN  UPDATE*/) 

FLAG*. F. 

CALL  MESSAGRt 7HUPDATE  ) 

RETURN 
100  CONTINUE 

CALL  E I  GEN (EXX, EYY, EXY, R] ,R2,D1 ,02) 

CALL  SAVE (L, Ml , N , EX , EY , R 1 , R2 , 0 1 , 02 , EXX , EYY , EXY , SE , KE . KLA ) 
CALL  MESSAGRt 7HUPDATE  ) 

RETURN 
END 

REAL  FUNCTION  ROU(X) 

ROU  =  A I  NT  <  X+0 . 5) 

END 

SUBROUT  I NE  RFCOVER ( JMAX , XS , YS ,  I S , XW , YW ,  I W 1  , SUB ) 

REAL  IE 

DIMENSION  XSt 1 ), YSt 1 ), XWt  1  ), YWt  1  ) , XRt  200) , YRt  200) ,  I  St  2,  1  ) , 
S  I R( 2, 20) 

COINCIDENT  VERTICES  AND  DEGENERATE  POLYGONS  ARE  REMOVED. 

CALL  MESSAGA  < 7HREC0VER ) 

I  R 1  *0 

I  R  (  1  ,  1  )  =  I  R 1 
MAX* JMAX 
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00  600  J  = 1 , JMAX 
IS1=IS!1 , J) 

I S2= I S! 2, J ) 

K 1  =  1 

R=XR! 1R1+1 )=R0U(XS( 1S1+1) ) 

S=YR( 1R1+1 )*R0U!Y$( 1S1+1) ) 

DO  450  K  =  2, IS2 
Rt=ROU(XS( IS1+K) ) 

SI =R0U(YS( 1S1 +K) ) 

1 F 1 ( ABS ( R -R1 )  .LE.  IE) .AND, < ABS ( S -S 1 ) . LE . I E ) ) 

$  GOTO  450 
KI=K1+1 

R=XR( IR1+K1 ) =  R1 
S=YR! 1R1+K1 ) =S 1 
450  CONTINUE 

Rl  =  XR< IR1-H  ) 

SI  =  YR! IR1+1 ) 

I F ( 1 ABS ( R -R 1  ) . LE.  IE)  . AND.  ( ABS (S -SI )  . LE .  IE)  ) 

S  K1=K1-1 
I F!K1 . LE. 2)  50 0, 550 
500  CONTINUE 
MAX s MAX -1 
GOTO  600 
550  CONTINUE 
I  R i 2, J ) =K 1 

IR1 =IR( 1 , J+1 ) = I R ( 1 , J)+K1 
600  CONTINUE 
JMAX=MAX 

IF( JMAX. EO. 1 )  650, 700 
650  CONTINUE 

IW1 =1R!2, 1 ) 

DO  675  I  *  1  ,  I W1 
XW1 I  )=XR( I  ) 

YW ( I )=YR( I ) 

675  CONTINUE 

WRITE! 7,  10)  ( XW ( I ) , YW ( I ) ,  I  *  t ,  I W I ) 

C  ENDFILE  7 

10  FORMAT !5!G13.5,G13.5)) 

CALL  MESSAGR ( 7HREC0VER ) 

RETURN 
700  CONTINUE 

IF! JMAX.EO.O)  725,735 
725  CONTINUE 

WRI TE( 7, 15)  SUB, JMAX 

15  FORMAT (A7, *  RESULT  IS  THE  SAME  AS  ORIGINAL  DATA  OR  NO  RESULT  *, 
%  *  EXISTS.  *, 13) 

C  ENDFILE  7 

RETURN 

735  CONTINUE 

C  WRITE! 6, 20)  SUB, JMAX 

WRITE! 7, 20)  SUB, JMAX 
C  ENDFILE  7 

20  FORMAT !A7,»  ERROR  *.13) 

DO  750  J* 1 , JMAX 
l  Rl » I R< 1 , J ) 

I R2* 1 R! 2, J ) 

WRITE 17, 10)  <XR< IR1  +  I  ),YR< IR1  +  I ), |  =  1 ,  I R2  ) 

C  ENDFILE  7 

750  CONTINUE 

CALL  MESSAGC! 7HRECCVER, 7HSELECT  ) 
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CALL  SELECT ( -  1 , JMAX,XR,YR,  IR,XW,YW,  IW1 ) 

CALL  MESSAGA ( 7HREC0VER ) 

CALL  MESSAGR ( 7HREC0VER ) 

RETURN 

END 

SUBROUTINE  MESSAGR! NAME ) 

MESSAGR  IS  CALLED  MANY  PLACES  IT  LEAVES  RETURN  MESSAGES 

WRITE! 6, 10)  NAME 
ENDFILE  6 
WRI TE( 7, 10)  NAME 
ENDFILE  7 
WRITE! 8, 10)  NAME 
10  FORMAT !A7,»  RETURNS  *) 

RETURN 

END 
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SUBROUTINE  CENTRD! I  1  ,  I 2,  X, Y , A, AX, AY , AXX. AYY , AXY ) 


CENTRD  CALCULATES  THE  AREA, AND  FIRST  MOMENTS  AND  VALUES 
PROPORTIONAL  TO  THE  SECOND  MOMENTS  OF  A  POLYGON 
WHOSE  DISTINCT  VERTICES  ARE  STORED  IN  I UCALC  OUTPUT  FORMAT 
IN  X! I ) ,Y< I ) , I =11 , 12. 

CENTRD  IS  CALLED  BY  GOLOSEC  AND  MOM. 

DIMENSION  X! 1 ) , Y!  1  ) 

CALL  MESSAGA! 7HCENTRD  ) 

122=12-2 

A  =  AX  =  AY  =AXX  =  AYY  =  AXY  =  0 . 

DO  50  1=11,122 
BX=X ( | +1 ) -X( 1 1 ) 

BY  =  Y ! 1 +1) -Y<  I  1  ) 

CX  =  X( 1+2) -X( I  1 ) 

CY  = Y ( I +2 )  -Y (  I  1  ) 

A I =0. 5* ! CX*BY-BX*CY  ) 

A= A+A 1 

XI =X( I  1  )  +  ( BX+CX ) /3 . 

Y I =Y (II  )  +  ( BY  +CY ) /3 . 

AX=AX+A I  *X I 
AY =AY  +A I  * Y I 

AXX  =  AXX+A I  *(XI  *XI+<BX*BX-BX*CX+CX»'CX)/18.  ) 

AYY  =  AYY  +A I *(YI * Y I + ( BY *BY -BY * CY+CY *CY ) / 1 8 .  ) 

AXY =AXY +A I *<XI »YI  +  (BX*BY-0. 5* < BX*CY+CX*BY > +CX*CY > / 1 8 .  ) 

50  CONTINUE 

WR I TE ( 7 , 20 )  A, AX, AY, AXX, AYY, AXY 
20  FORMAT ! *  THE  OUTPUT  OF  CENTRD  IS  *,/(5G15.5)> 

CALL  MESSAGR! 7HCENTRD  ) 

RETURN 

END 

SUBROUTINE  MESSAGA ( NAME ) 


I 


4 


MESSAGA  IS  CALLED  MANY  PLACES.  IT  LEAVES  ANSWER  MESSAGES. 


1 


WRITE! 6, 10)  NAME 
ENDF1LE  6 
WR I TE ( 7 , 10)  NAME 
ENDFILE  7 
WRI TE<  8, 10)  NAME 
0  FORMAT <A7,*  ANSWERS  *) 

RETURN 

END 

SUBROUT  I NE  MESSAGC ( NAME  1 , NAME2 ) 


! 


MESSAGC  IS  CALLED  MANY  PLACES.  IT  LEAVES  CALL  MESSAGES. 


[ 


10 


WRITE (6, 10)  NAME 1 , NAME 2 
ENDFILE  6 

WRITE! 7,  10)  NAME  1 , NAME2 
ENDFILE  7 

WRITE! 8,  10)  NAME  1 , NAME2 
FORMAT <A7,»  CALLS  *,A7) 

RETURN 

END 

REAL  FUNCTION  NUSCALE ! SCALE , I NC ) 


NUSCALE  IS  CALLED  BY  GOLDSEC. 

NUSCALE  USES  SCALE  AND  INC  TO  GENERATE  THE  NEXT  TERM  IN  THE  SEQUENCE 
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REAL  INC 

NUSCALE=SCALE+INC 

RETURN 

END 

SUBROUTINE  RECTAN! II,  I  2, X, Y , N, E, S, W) 

RECTAN  DETERMINES  A  RECTANGLE  CIRCUMSCRIBING  P=  <  1  I  ,  I  2,  X,  Y >  AND  STORES 
THE  EXTREME  X  COORDINATES  IN  W  (=WEST>  AND  E  ( =  EAST )  AND  THE  EXTREME 
Y  COORDINATES  IN  N  ( -NORTH)  AND  S  (=SOUTH). 

(X( 1 ) , Y( I  ) ,  I  =  1  1  ,  12)  ARE  DISTINCT  VERTICES  OF  P 
RECTAN  IS  CALLED  BY  LANDEF,  POSINT,  AND  REMAIN. 

REAL  W,E,N,S 
DIMENSION  X ( I  ) , Y (  1  ) 

CALL  MESSAGA ( 7HRECTAN  ) 

WR I TE ( 7 ,  1 2 ) ( X ( I  )  ,  Y ( I  ) ,  1 = 11 .  I  2 ) 

ENDFILE  7 

12  FORMAT ( *  INPUT  TO  RECTAN* , /5 < G 1 3 . 6 , G 1 3 . 6 ) ) 

EP=0. 0001 
W=E=X( I  1 ) 

N  =  S  =  Y( 1 1  ) 

111=11+1 

DO  1 000  1=111,12 
PX=X< 1 ) 

PY  =  Y (  I  ) 

IF(PX.LE.W-EP)  W=PX 
IFIPX.GE. E+EP)  E=PX 
IF(PY.LE.S-EP)  S=PY 
I F ( PY . GE . N+EP )  N=PY 
1000  CONTINUE 

WR 1 TE ( 8 , 15)  N,E,S,W 
WRITE! 6, 15)  N,E,S,W 
ENDFILE  6 

WRITEC7, 15)  N , E , S , W 
ENDFILE  7 

15  FORMAT! *NORTH  =  * , G 1 5 . 5, *EAST= * , 3 1 5 . 5 , *SOUTH= * , G1  5 . 5,  *WEST  =  », 

S  315.5) 

CALL  MESSAGR 1  7HRECTAN  ) 

RETURN 

END 

LOGICAL  FUNCTION  M I N 1  MAX ( N . E , S  W , LN , LE , LS , LW ) 

MINI  MAX  DETERMINES  IF  THE  RECTANGLES  GIVEN  BY  <W  N,E,S>  AND 
(LW, LN, LE, LS)  OVERLAP.  IT  IS  USED  TO  PRESCREEN  POSITION  POLYGONS  AND 
LAND  MASSES.  MINI  MAX  =  .T.  IF  THERE  IS  NO  OVERLAP,  =  .F.  OTHERWISE. 

THIS  TEST  IS  FROM  G 1 1.0 1  . W . K .  , P .  1 58 ;  EXCEPT  IF  THE  ONLY  OVERLAP  OCCURS 
BETWEEN  BOUNDARIES  OF  THE  RECTANGLES,  MINI MAX=  ,T. 

MINI  MAX  IS  CALLED  BY  POSINT,  REMAIN,  MOVECEN,  NEWCEN . 

REAL  W, E. N, S, LW, LE, LN, LS 
CALL  MESSAGA! 7HMI N I  MAX) 

MINIMAX* . F . 

EP=0. 01 

IF! <  E. LE. LW+EP)  . OR .  (LE. LE. W+EP)  OR.  ( N . LE . LS+EP)  OR  (LN. LE  S+EP) ) 

S  MINIMAX*. TRUE. 

WRITE (6, 20)  MIN  I  MAX 
ENOFILE  6 

WRITE! 7, 20)  MINI  MAX 
ENDFILE  7 

WRITE (8, 20)  MINI  MAX 
20  FORMAT! *MI NIMAX** , L3) 

CALI.  MESSAGR!  7HM1  NIMAX) 
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RETURN 
END 

SUBROUTINE  PCS! NT (XPC, YPC,  I  Cl , LAX, LAY, LI  A, LIB, LAN, LN, LE, LS, LW, 

S  XW, YW,  I W, RX, RY ,  I R, XS, YS,  I S, LAN I  NT,  I NC , CLOSE , FLAG . XWO , YWO , NUM , 

$  REM,  I  REM,  I NUM, PC, PP) 

POSINT,  GIVEN  A  POSITION  POLYGON  AND  LAND  MASSES,  DETERMINES  THE 
POLYGON ( S )  WHICH  CONSERVE  AREA  YET  INTERSECT  NO  LAND. 

POSINT  IS  CALLED  BY  CONCLDE . 

DIMENSION  LIA(1),LIB(1 ) ,XPC( 1 ) , YPC I  1) , XW( I) , YW( I ) , 

S  !W<2, 1 ) , RX( 1 ) , RY( 1 ) , !R(2, 1 ) ,XS( 1 ) , YS( 1 ) , 1S(2, 1 ) , WK( 300) , 

S  XWO ( 1 ) , YWO ( 1 ) , NUM ( 2, 1 ) , I NUM ( 1) , AREAS ( 50 ) 

INTEGER  REM (2, 1 ) 

REAL  LAX ( 1  ) , LAY ( 1  ) , LW( I  ) , L.E( 1  ) ,  LN( 1  ) , LSI  1  ) ,  INC, NORTH, EAST, SOUTH, 

S  WEST 

LOGICAL  Ml  N I  MAX,  FLAG,  FLAG  1  ,  l.ANl  NT 

XPC , YPC , l Cl  CONTAINS  THE  CURRENT  POSITION  POLYGON 

CALL  MESSAGA ( 7HP0S I  NT  ) 

CALL  MESSAGC I 7HP0S 1  NT  , 7HRECTAN  ) 

DETERMINE  CIRCUMSCRIBING  RECTANGLE  OF  XPC, YPC 

CALL  RECTANI1 , 1CI , XPC , YPC , NORTH , EAST , SOUTH , WEST ) 

CALL  MESSAGA (7HPOS I  NT  ) 

LAN=L JB  C 1,1,1) 

FLAG 1 = . T. 

LAN I  NT  = . T . 

DO  1000  J=1 , LAN 

TEST  FOR  OVERLAP  OF  CIRCUMSCRIBING  RECTANGLE  OF  (XPC, YPC)  AND 
CIRCUMSCRIBING  RECTANGLE  OF  I  LAX  I  1  ) , LAY ( I) )  1=LIA(J),LIB(J)  . 

CALL  MESSAGC (7HP0S I  NT  ,7HM!NIMAX) 

I FIM1N1 MAX  I  NORTH, EAST, SOUTH, WEST, LNI  J)  , LE I J ) , LS ( J ) , LW I J ) ) ) 

S  GOTO  900 

TEST  FOR  OVERLAP  OF  (XPC, YPC)  AND  POSSIBLE  ( LAX ( J ) , LAY ( J ) )  I=LIA(J), 
LIB( J I . 

I  1 =L I  A ( J ) 

I 2=L I B( J  > - 1 
DO  100  1 N= I  1  ,  12 
I  =  1 N -  1  1+1 
XW( 1 ) "LAX ( IN) 

YW (  I  ) -  LAY (IN) 

1 00  CONT I NUE 

IW1  =  I  2- I  1  +  1 

CALL  MESSAGC!  7HPOS  I  NT  ,  7H I  UCALC  ) 

CALL  I UCALC ( XW, YW, I W 1 , XPC, YPC, I C 1 , 2 , WK , 300, JMAX , IS, 20, XS, YS, 

*  200) 

CALL  MESSAGA! 7HP0S1 NT  ) 

I F ( JMAX  LT.OI  300,400 
300  CONT I NUE 

WRITE! 6, 40)  J , JMAX 
WRITE (6, 40)  J , JMAX 
C  ENDFILE  6 
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WR I TE (7,40)  J , JMAX 
C  ENDFILE  7 

40  FORMAT ( *  I UCALC  ERROR  IN  POSINT.  J=  *,I3,»  JMAX  =  *,I3> 

STOP  15 

400  CONTINUE 

WR I TE (8,45)  J , JMAX 
WR1TE(6,45)  J ,  JMAX 
ENOFILE  6 

WR I TE (7,45)  J , JMAX 
ENDFILE  7 

45  FORMAT (  *  J  =  «,  I3,«JMAX=  *,I3) 

JMAX.EQ.O  WHEN  THE  INTERSECTION  IS  EMPTY,  OR  THE  INPUT  POLYGONS  TO 
I UCALC  ARE  I  DENT  1 CAI. .  THE  ASSUMPTION  HERE  IS  THAT  THE  INPUT 
POLYGONS  ARE  NEVER  IDENTICAL. 

I F( JMAX.EQ.O)  GOTO  900 

A  NONEMPTY  INTERSECTION  RESULTS. 

(XWO.YWO)  CONTAINS  THE  POSITON  POLYGONS  DETERMINED  BY  THE  INTERACTION 
OF  (XPC.YPC)  WITH  THE  LAND  MASSES  (LAX, LAY).  I  REM  IS  THE  INDEX  OF  THE 
OPTIMAL  SET  OF  REMAINDER  POLYGONS.  MAXPOL  IS  THE  NUMBER  IN  THE  SET. 

I F ( PP*PC . GT . 0 . )  600,700 
600  CONTINUE 

CALL  MESSAGC ( 7HP0S I  NT  , 7HG0LDSEC ) 

CALL  GOLDS EC (XPC.YPC,  IC1  , LAX , LAY , L I  A , L I B , LAN , XW , YW ,  1W,XS,YS, 

S  I S, RX , RY ,  I R ,  I NC,  LN,  LE,  LS,  LW,  CLOSE, FLAG, XWO.YWO, MUM, REM, 

S  I  REM,  INUM, AREAS) 

CALL  MESSAGAt 7HP0SI NT  ) 

CALL  MESSAGR ( 7HPGS I  NT  ) 

RETURN 

700  CONTINUE 

CALL  MESSAGC ( 7HP0S I  NT  , 7HREMA 1 N  ) 

CALL  REMAIN (XS, YS,  I S , LAX , LAY , L I  A , L I B , LAN , XW , YW ,  IW, 

S  RX.RY,  I P, LN, LE, LS, LW,  1  .  , XPC.YPC,  I  Cl  ,0.  ,0.  , XWO.YWO, 

S  NUM , REM , 1 , AREAS , I NUM ) 

CALL  MESSAGA ( 7HP0S I  NT  ) 

I REM= 1 

CALL  MESSAGR ( 7HP0S1 NT  ) 

RETURN 

900  CONTINUE 

1000  CONTINUE 

XPC.YPC  INTERSECTS  NO  LAND  MASS. 

LANI NT= . F. 

WRI TE( 6, 60) 

WR I TE ( 6 , 60 ) 

ENDFILE  6 
WRI TE( 7, 60) 

ENDFILE  7 

60  FORMAT ( *XPC , YPC  INTERSECTS  NO  LAND  MASS.*) 

CALL  MESSAGR ( 7HP0S I  NT  ) 

RETURN 

END 

SUBROUT  I NE  NUCUMUN ( NGON 1  , NG0N2 ,  I  A ,  I B , X , Y , 

S  XW , YW , XS , YS , IS, IW.XCEN, YCEN.WK, 

S  PGX, PGY, FLAG, RX, RY, IR1 , JMAX) 

GIVEN  NGON 1  AND  NG0N2 ,  TWO  POLYGONS  REPRESENTING  POSITIVE  INFORMATION, 
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GENERATE  P1AAM.  START  WITH  A  VERTEX  KNOWN  TO  BE  ON  BOUNDARY  OF  PIAAM, 
IN  THIS  CASE  THE  MOST  NORTH  VERTX  OF  NGON1  EVALUATED  AT  THE  MOST 
NORTH  VERTEX  OF  NG0N2 .  THE  NEXT  VERTEX  ON  THE  BOUNDARY  OF  PIAAM  IS 
USUALLY  EITHER  THE  NEXT  VERTEX  OF  NGOM1  EVALUATED  AT  THE  SAME  VERTEX 
OF  NGON2 ,  OR  THE  SAME  VERTEX  OF  NGON1  EVALUATD  AT  THE  NEXT  VERTEX 
OF  NGON2.  CHOOSE  THE  FORMER  WHEN  IT  IS  TO  THE  LEFT  OF  THE  LATTER, 
OTHERWISE  CHOOSE  THE  LATTER.  TO  ALLOW  FOR  THE  CASES  WHEN  NEITHER 
ABOVE  VERTEX  IS  NEXT,  UNION  TO  THE  POLYGON  FORMED  BY  THE  ABOVE 
NGON1  EVALUATD  AT  ALL  VERTICES  OF  NGONN2. 

LOGICAL  FLAG, FLAG I 

DIMENSION  X( 1) , YC 1 ) , I A< 1 ) , IBC 1) ,XW< 1 ) , YW( 1 ) , I W(2, 1 > , XS( 1) , 

$  YS ( 1  ) , PX ( 50 ) , PY ( 50 ) , WK ( 1) , PGX ( 1  ) , PGY ( 1  )  ,  I  PAR (2,1), 

S  PARX ( 3 ) , PARY ( 3 ) , RX ( 1 ) , RY ( 1 ) , I S ( 2 , 1 ) ,XCEN( 1 ) , YCEN( 1 ) 

PGX, PGY  CONTAINS  X,Y  COORDINATES  OF  NG0N2 .  M2  IS  THE  NUMBER  OF 
DIFFERENT  VERTICES  OF  NG0N2 .  RX , RY  CONTAINS  THE  POLYGON  DETERMINED 
THE  "USUALLY  THE  NEXT  VERTEX"  ALGORITHM,  I R1  IS  THE  NUMBER 
OF  ENTRIES  IN  RX, RY .  THE  FINAL  NUCUMUN  RESULT  IS  STORED  IN  RX , RY . 

CALL  MESSAGA ( 7HNUCUMUN ) 

DATA  I  PAR ( 1 , 1 ) ,  I  PAR (2, 1 ) /0 , 3/ 

I  A I  =  I  A( NG0N1  ) 

1 B 1 = I B ( NG0N1 ) 

Ml  =  I B 1  -  I A1 

M2=  I B  (  NG0N2 ) -  I  A ( NG0N2 ) 

EP=  1  . 

E  = . 001 
FLAG  = . T. 

DETERMINE  MOST  NORTH  VERTEX  OF  PIAAM. 

CALL  MESSAGC( 7HNUCUMUN, 7HN0RTH  ) 

NONG0N2= NON = NORTH! 1 , M2 , PGY ) 

NONG0N1 = NORTH ( IA1 , IB1 -1 ,Y) 

1  =  1 

XC=XCEN( NGON 1 ) 

YC  =  YCEN ( NGON 1  ) 

WR I TE ( 7  5)  XC  YC 

5  FORMAT ( *  THE  CENTROID  OF  NG0N1  IS  *,2G15.5> 

XC 1 = PGX ( NONGON2 ) - XC 
YC 1 =  PGY ( NONGON2 ) - YC 
XC2  =  PGX ( NONGON2+ 1  ) -XC 
YC2=PGY ( N0NG0N2+1 ) -YC 
RX ( I  )  =  ROU ( X ( NONGQN 1  )+XC1 ) 

RY ( I  ) =  ROU ( Y ( NONGON 1  )+YCl  ) 

WR  I  TE ( 7 ,  10)  I  , RX  <  I  ) , RY (  I  ) 

ENDFILE  7 

10  FORMAT ( *  THE  *,13,*  ENTRY  IN  RX , RY  IS  * , 2G 1 5 . 5 ) 

DETERMINE  CANDIDATES  FOR  NEXT  VERTEX. 

MX= (Ml +1 ) * (M2+1 ) 

DO  2999  I =2, MX 
PARX ( 1 ) =RX( I -1 ) 

PARY ( 1  ) =RY ( I  -1  ) 

DETERMINE  THE  NEXT  VERTEX  OF  NGONI  EVALUATED  AT  THE  VERTEX  OF 
NG0N2  ASSOCIATED  WITH  RX ( I  -  1  ) , RY ( I  -  1 ) . 

NEXT1 =N0NG0N1 + 1 


A-33 


! 


oooo  oooo  o  ooooo 


I  F  (  NEXT  1  ,  GT  .  !  Bl  )  NEXT1  =  I  AH  MOD<  NEXT1  -IA1.IB1-IA1) 

WR 1 TE (7,  15)  NEXT  1 
15  FORMAT! *NEXT1 =  *,13) 

C  ENDFILE  7 

PARX ( 2 ) =  ROU ( X ( NEXT 1  )+XC1  ) 

PARY ( 2 ) =ROU ( Y ( NEXT 1 >+YC1 > 

WR 1 TE ( 7 , 20 )  PARX <  2  > , PARY ( 2 ) 

20  FORMAT( *PARX( 2) , PARY ( 2)  IS  *,2G15.5> 

ENDFILE  7 

DETERMINE  THE  SAME  VERTEX  OF  NG0N1  EVALUATED  AT  THE  NEXT  VERTEX  OF 
NG0N2 . 

PARX ( 3 ) =  ROU ( X ( NONGON 1 )+XC2) 

PARY ( 3 ) =ROU ( Y ( NONGON 1 )HYC2) 

WRITE! 7, 30)  PARX < 3 ) , PARY ( 3 ) 

30  FORMAT ( *PARX ( 3 ) , PARY ( 3 )  IS  *,2G15.5> 

ENDFILE  7 

A  =  AREA ( PARX , PARY,  I  PAR,  1  ) 

I F  < ABS(A) .GT. E)  GOTO  1000 
F2X=PARX ( 2 ) - RX ( I -1 ) 

F 2Y  =  PARY  (  2  )  ■  RY  (  1  -1  ) 

F3X  =  PARX ( 3 ) - RX (  1  -  1  ) 

F3Y  =  PARY ( 3 ) - RY  <  I -1  ) 

D2=SQRT( F2X*F2X+F2Y*F2Y ) 

D3  =  SQRT ( F3X*F3X+F3Y  *F3Y ) 

IF(D2.GE. D3+E)  1500,2000 

1000  CONTINUE 

IF(A.GE.E)  1500,2000 
1500  CONTINUE 

NEXT  VERTEX  IS  ( PARX ( 2 ) , PARY ( 2 ) ) .  THE  NEXT  VERTEX  OF  NG0N1  EVALUATED  AT 
THE  VERTEX  OF  NG0N2  ASSOCIATED  WITH  RX< I  - 1  ) , RY ( I  -  1 ) . 

RX  <  I  ) =PARX(2) 

RY ( 1 ) = PARY ( 2 ) 

NONGON 1 =NEXT1 

WR1 TE (7,10)  1 , RX ( 1 ) , RY ( I ) 

I F ( ( ABS ( RX ( I ) -RX ( 1 ) ) . LE . EP )  AND. ( AB5( RY ( I ) -RY ( 1 ) ) . LE . EP ) ) 

$  GOTO  3000 
GOTO  2999 
2000  CONTINUE 

NEXT  VERTEX  IS  ( PARX ( 3 ) , PARY ( 3 ) ) .  THE  SAME  VERTEX  OF  NG0N1  EVALUATED  AT 
THE  NEXT  VERTEX  OF  NG0N2 . 

RX  <  1  )  =PARX(  3) 

RY<  I  ) =  PARY ( 3 ) 

WRI TEC  7,  1 0)  I  , RX ( I  ) , RY  C I  ) 

I F (  ( ABSCRXC  I  > -RX<  1  >  >  . LE. EP)  . AND  ( ABS ( RY (  I  ) -RY ( 1  )  )  . LE . EP )  ) 

$  GOTO  3000 
N0NG0N2=N0NG0N2+1 

I F ( N0NG0N2 . GT . M2 )  N0NG0N2  =  MOD ( N0NG0N2 , M2 ) 

WR I TE ( 7 , 35 )  N0NG0N2 
35  FORMAT ( *N0N60N2=  *,I3) 

C  ENDFILE  7 

XC 1 rPGX ( N0NG0N2 ) -XC 
YC1 =PGY ( N0NG0N2 ) -YC 
XC2-PGX ( N0NG0N2+1 ) -XC 
YC2*PGY ( N0NG0N2+ 1 ) -YC 
2999  CONTINUE 
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FLAG  = . F. 

WR 1 TE (6,40) 

WRI TE( 7, 40) 

WRI TE!  8, 40) 

40  FORMAT! *NUCUMUN  ERROR  *) 

CALL  MESSAGR( 7HNUCUMUN) 

RETURN 

3000  CONTINUE 

UNION  TO  THE  POLYGON  FORMED  BY  THE  ABOVE  OPERATIONS  NG0N1  EVALUATED 
AT  ALL  VERTICES  OF  NGON2 . 

1  R 1  =  1  -  1 

WR I TE ( 7 , 50 )  I R 1 , ( RX ( I ) , RY ( I ) , I = 1 . I R 1 ) 

50  FORMAT ( *RX, RY  HAS  *,13,*  ENTRIES  ( RX , RY )  IS  *  , /5IG13. 5, G1 3 . 5) ) 
ENDFILE  7 
00  5000  J=1 ,M2 
XC 1 =PGX ( J ) -XC 
YC1 =PGY ( J ) -YC 
DO  3500  1 =1 ,MI 
IA1 1  =  I  A 1  + 1 -1 
PX< I ) =ROU!X< I Al I )+XC1 ) 

PY( I  ) = ROU ( Y (  I  All  >+YC1  ) 

>00  CONTINUE 

CALL  MESSAGC ( 7HNUCUMUN , 7HPRE I U  ) 

SUB  - 7HNUCUMUN 

CALL  PRE I U ( RX , RY ,  1 R 1 , PX , PY , Ml ,  1 ,  I S , XS , YS , SUB , FL AG , FLAG  1  , JMAX) 

CALL  MESSAGA ( 7HNUCUMUN ) 

I F( .NOT. FLAG)  RETURN 
5000  CONTINUE 

WRI TE(7, 60) 

60  FORMAT ( * THE  FINAL  OUTPUT  OF  NUCUMUN  IS  *) 

WR  I  TE  (  7 ,  50  )  I  R 1  ,  <  RX !  I  )  ,  R  Y  (  1  )  ,  I  =  1  ,  I  R 1  ) 

ENDFILE  7 

CALL  MESSAGR ( 7HNUCUMUN ) 

RETURN 

END 

FUNCTION  NORTH! ( I , 12, Y) 

NORTH, GIVEN  POLYGON  (11,12.x, Y),  RETURNS  THE  INDEX  OF  THE 
MOST  NORTH  VERTEX  OF  THE  POLYGON.  THE  NUMPER  OF  DISTINCT 
VERTICES  IN  THE  POLYGON  IS  12-11+1. 

DIMENSION  Y ( 1 ) 

REAL  N 

CALL  MESSAGA (7HNORTH  ) 

EP  =  0 . 0001 
N  =  Y (  I  I  ) 

NORTH= I  1 

WRI TE<  7,  10)  ( Y( I  )  ,  I  =  I  1  ,  12) 

10  FORMAT! *  I NPUT  TO  NORTH  IS  *,/5<G13.6,GI36>> 

111=11+1 

DO  1 000  1=111,12 
PY  =  Y ( I  ) 

IFIPY  LT.N+EP)  GOTO  1000 
N  =  PY 
NORTH= I 
1000  CONTINUE 

WRITE! 7, 20)  NORTH , N 

20  FORMAT! *NORTH  OUTPUT.  N0RTH=*,!3,»  N=*,G15.5> 

CALL  MESSAGE ( 7HN0RTH  ) 
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SUBROUTINE  GOL DSEC ( XPC ,  YPC  ,  • C 1  , LAX , LAY , L I  A , LI B , LAN , XW , YW , 

$  IW, XS, YS, IS, RX, RY, IR, I NC, IN, LE, IS, LW, CLOSE, FLAG, 

$  XWO, YWO, NUM, REM,  I  REM,  I NUM, AREAS ) 

C 

C  GOLDSEC  USES  THE  METHOD  OF  GOLDEN  SECTIONS  TO  GENERATE  THE  RESCALED 

C  POLYGON  Q  FROM  XPC, YPC  WHERE  THE  AREA  OF  Q  OUTSIDE  OF  THE  LAND  MASSES 

C  IS  CLOSE  TO  THE  ENTIRE  AREA  OF  XPC.YPC.  THE  PARTS  OF 

C  Q  OUTSIDE  OF  THE  LAND  MASSES  ARE  CALLED  THE  REMAINDER  POLYGONS 

C  AND  ARE  RETURNED  IN  XWO, YWO.  I  REM  IS  THE  INDEX  OF  THE  FINAL 

C  SET  OF  REMAINDER  POLYGONS.  1 NUM (I  REM)  IS  THE  INDEX  OF  THE  LARGEST 

C  FOLYGON  IN  SET  I  REM . 

C  NUM ( 1 , J )  IS  THE  OFFSFT  OF  THE  INDEX  OF  THE  JTH  POLYGON  IN  XWO , YWO . 

C  NUM ( 2 , J )  IS  THE  NUMBER  OF  VERTICES  IN  POLYGON  J. 

C  REM ( 1 , K )  IS  THE  OFFSET  OF  THE  INDEX  OF  THE  KTH  REMAINDER  SET  IN  NUM. 

C  REM ( 2 , K )  IS  THE  NUMBER  OF  POLYGONS  IN  REMAINDER  SET  K. 

C  POINT! I)  IS  USUALLY  THE  REMAINDER  SET  ASSOCIATED  WITH  W 1 , 1=1  OR  2. 

C  A  IS  THE  AREA  OF  XPC.YPC 

C  AREAS ( K )  IS  THE  AREA  OF  THE  LARGEST  POLYGON  IN  REMAINDER  SET  K. 

C  WHEN  -A*CLOSE  @  ARE  AS ( K  > - A  @  A*CLOSE,  THE  ALGORITHM  STOPS  WITH  THE 

C  REMAINDER  SET  K  AND  THE  REMAINDER  POLYGON  INUM(K). 

C  IN  THE  INITIALIZING  PHASE  OF  THE  ALGORITHM,  SCALE= 1 .  AND  THE  AREAS! 1 ) 

C  IS  SUCH  THAT  AREAS! 1)  <  A. 

C  FURTHERMORE,  IN  THIS  PHASE  THE  ALGORITHM  MUST  F I ND  A  QUANTITY,  NEXT, 

C  S.T.  THE  CORRESPONDING  AREAS  SATISFIES  THE  STOPPING  CRITERIA  OR 

C  A*CLOSE<  AREAS-A. 

C  GOLDSEC  IS  CALLED  BY  POS1NT. 

C 

REAL  LAX ( 1) , LAY ( 1) , NUSCALF , NEXT , LENGTH , 1 NC , LN (1 ) , LE ( 1 ) , LS (1 ) , 

S  LW  < 1  ) 

INTEGER  REM (2,1), PO I  NT ( 2 ) 

DIMENSION  XPC! 1>,YPC<1),L1A!1>,LIB(1>,I NUM! 1 ) , 

S  XS ( 1  ) , YS ( 1  )  ,  I S ( 2 ,  I  ) , RX (  1) , RY (  1  )  .  I R ( 2 ,  1  ) , 

$  XW! 1 ) , YW! 1 ) , I W ( 2 , 1 ) , 

S  XWO ( 1 ) , YWO ( 1 ) , NUM (2,1), AREAS ( 1 ) 

LOGICAL  FLAG 

CALL  MESSAGAf 7HGOLDSEC) 

CALL  MESSAGC ( 7HGOLDSEC , 7HCENTRD  ) 

CALL  CENTRD ( 1 , 1 C 1 , XPC , YPC , A , AX , AY . AXX , AYY , AXY ) 

CALL  MESSAGA ( 7HGOLDSEC ) 

ACLOS-A*CLOSE 

XCEN=AX/A 

YCEN=AY/A 

WR I TE (6,8)  XCEN , YCEN , AC LOS 
C  ENDFILE  6 

WR I TE (7,8)  XCEN, YCEN, ACLOS 
C  ENDFILE  7 

8  FORMAT! *XCEN=* , G1 5 . 5 , *YCEN=* , G15 . 5, * ACLOS= * , G 1 5 . 5) 

FLAG= . T. 

SCALE= I . 

IS! 1 , 1 ) =0. 

EP  =  0. 00001 
KAY  =  5 

THE  LOWER  BOUND  OF  THE  SEARCH  INTERVAL  IS  1.  STOP  OR 
DETERMINE  UPPER  BOUND  OF  THE  SEARCH  INTERVAL  SO  THAT  THE 
AREA  OF  THE 

REMAINDER  POLYGON! S ), GENERATED  BY  THE  UPPER  BOUND,  EXCEEDS  THE  AREA 
OF  XPC.YPC. 

LL  =  0 

CALL  MESSAGC ( 7HG0L0SEC , 7HREMA I NU ) 

LL=LL+1 
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CALL  REMAINIXS, YS, 1 S , LAX , LAY , L i A , L I B , LAN , XW , YW , IW,RX,RY, [R, 
LN, LE,LS,LW, SCALE, XPC.YPC,  I  Cl , XCEN , YCEN , 

XWO , YWO , NUM , REM , LL , AREAS , 1 NUM ) 

CALL  MESSAGA ( 7HGOLDSEC ) 

WR I  IE( 7, 1 3 )  A , AREAS! LL ) 

1 F ( A - ACLOS .  LE  AREAS ( LL ) )  50,100 
50  CONTINUE 
I  REM=LL 

CALL  MESSAGR  (  7HG0L.DSEC ) 

RETURN 

100  CONTINUE 

00  1000  K= 1 , KAY 

NEXT  =NUSCALE l SCALE ,  INC) 

CALL  MESSAGC ( 7HGOLOSEC , 7HREMA I NU ) 


LL=LL+ 1 

CALL  REMA1 N( XS, YS.  IS, LAX , LAY , LI  A, LIB. LAN, XW, YW,  I W , RX , RY ,  IR, 

S  LN,LE,LS,LW, NEXT, XPC.YPC, 1C1 , XCEN, YCEN, 

$  XWO, YWO, NUM, REM  LL, AREAS, I NUM) 

CALL  MESSAGA ( 7HG0LDSEC) 

GW 1 =A-AREAS!LL> 

WRITE! 7,  13)  A , AREAS ( LL ) , GW  1 
ENDFILE  7 

13  FORMAT! *  I NPUT  POLYGON  AREA  =  * , G 1 5 . 5 , *  REMAINDER  POLYGON  AREA‘  * ,  j 

S  G 1 5 . 5 , *  INPUT  AREA  -  REMAINDER  AREA  = * , G 1 5 . 5 )  ' 

I F <  ABS ( GW  1  ) . LE . ACLOS )  500,600 
500  CONTINUE 
I REM=LL 

CALI  MESSAGR ( 7HG0L0SEC ) 

RETURN 

600  CONTINUE 

CHECK  TO  SEE  IF  NEXT  IS  SUCH  THAT  METHOD  OF  GOLDEN  SECTIONS  CAN  BE 
APPLIED 

IFIA+ACLOS  LE  AREAS (LL))  GOTO  1100 
SCAL£=NEXT 
1000  CONTINUE 

WRITE! 6, 15) 

C  ENDFILE  6 

WR! TE(8, 15) 

15  FORMAT! « AN  UPPER  BOUND  OF  THE  SEARCH  INTERVAL  HAS  NOT  BEEN  *  , 

*  ‘DETERMINED  RETURN  CONTROL  TO  FUNCTION  SELECTION  (Y  OR  N)  *) 

READ ( 5 , 20 )  Q 

WR I TE  <  6 , 20 )  Q 
WR I TE  <  7 , 20 )  Q 
WRITE! 8, 20)  Q 
20  FORMAT! A  1  ,12) 

I F(Q. EQ. 1 HY )  FLAG= . F . 

I F(  NOT. FLAG)  RETURN 
WRI TE(6, 25) 

WRI TE! 6, 27) 

C  ENDFILE  6 

WRI TE! 8, 25) 

WRI TE! 8, 27) 

25  FORMAT! ‘CALCULATION  OF  THE  UPPER  BOUND  OF  THE  SEARCH  INTERVAL*, 

*  ‘WILL  CONTINUE. « ) 

27  FORMAT! ‘CHANGE  SCALE  FACTOR  INCREMENT  (Y  OR  N)  *, 

*  «  FOLLOW  Y  IMMEDIATELY  WITH  2  DIGIT  POSITIVE  INTEGER.*)  1 

READ! 5, 20)  O.NUINC 
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WR1 TE(  6 , 20)  Q.NU1NC 
WRITE (7, 20)  Q.NUINC 
WRITE (8, 20)  Q.NUINC 
IF(Q.EQ. 1 HY )  1NC=NU1NC 
GOTO  100 
1100  CONTINUE 

THE  METHOD  OF  GOuDEN  SECTIONS  APPLIED  TO  THE  SEARCH  INTERVAL 
[SCALE,  NEXT]  FOLLOWS.  SEE  ZANGWILL  P,  121. 

FI = (3. -SORT ( 5 . ) )/2. 

F2= ( SORT ( 5 . )-1 . )/2. 

A  FUNCTION  EVALUATION  CONSISTS  OF  THE  FOLLOWING  STEPS.  GENERATE  THE 
RESCALED  POLYGON  Q(W),  WHERE  W=W1  OR  W2 .  DETERMINE  THE  REMAINDER 
POLYGONS  OF  0(W).  DETERMINE  THE  AREA  OF  THE  REMAINDER  POLYGONS. 

KK  =  0 

1150  CONTINUE 

DO  3000  K= 1 , KAY 
KK=KK+ 1 

IF(KK.EQ.I)  1200,  1500 

ON  THE  FIRST  ITERATION  THE  PROGRAM  BRANCHES  TO  THE  FOLLOWING,  IN  ORDER 
TO  INITIALIZE  THE  ALGORITHM. 

1200  CONTINUE 

GW1 =GW2=0. 

FL  =  F 1  * ( NEXT -SCALE ) 

W1 =SCALE+FL 
W2=NEXT-FL 

CALL  MESSAGC ( 7HGOLDSEC , 7HREMAING) 

LL=LL+1 

CALL  REMAINtXS, YS,  I S . LAX , LAY , L I  A , L 1 B , LAN , XW , YW ,  IW.RX.RY,  IR, 

S  LN , LE , LS , LW , W 1 ,XPC,YPC,  I  Cl  ,XCEN,YCEN, 

S  XWO, YWO.NUM, REM, LL , AREAS, 1NUM) 

CALL  MESSAGA ( 7HG0LDSEC ) 

GW 1 = ABS ( A -AREAS ( LL )  ) 

WR I TE ( 7 , 40 ) A , AREAS ( LL  > , GW 1 
ENDFILE  7 

CHECK  FOR  OPTIMALITY. 

IF(GW1 . LE. ACLOS)  1300,1400 
1300  CONTINUE 

LL  IS  OPTIMAL 

I REM=LL 

CALL  MESSAGR ( 7HG01  DSEC ) 

RETURN 

1400  CONTINUE 

LL  IS  NOT  OPTIMAL 

POINT! 1 ) =LL 
LL=LL+ 1 
PO I  NT ( 2 ) =LL 

CALL  MESSAGC ( 7HG0LDSEC , 7HREMA I NG ) 

CALL  REMA IN(XS,YS,  IS, LAX , LAY , L I  A , L I B , LAN , XW , YW ,  I W , RX , RY ,  I R , 

*  LN , L  E , LS , LW , W2 , XPC , YPC ,  I  Cl  ,XCEN,YCEN, 

S  XWO, YWO.NUM, REM, LL , AREAS, 1 NUM ) 
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CALL  MESSAGA ( 7HG0LDSEC ) 

40  FORMAT (* INPUT  POLYGON  AREA= * , G 1 5 . 5 , *  REMAINDER  POLYGON  AREA=  * , 

*  GT  5 . 5 , *  ABS< INPUT  AREA  -  REMAINDER  AREA ) = * , G 1 5 . 5 ) 

GW2=ABS( A- AREAS ( LL ) ) 

WRI TE( 7, 40)  A , AREAS ( LL ) , GW2 
ENDFILE  7 

CHECK  FOR  OPTIMALITY.  IF  NOT  OPTIMAL  INCREMENT  K  COUNTER 
1 F ( GW2 . LE . ACLOS )  1450,2900 
1450  CONTINUE 

LL  IS  OPTIMAL 

I REM=LL 

CALL  MESSAGR ( 7HG0LDSEC ) 

RETURN 

ON  ALL  BUT  THE  FIRST  I  TER A I  ON  THE  PROGRAM  BRANCHES  TO  THE  FOLLOWING 
FROM  LABEL  1150. 

1500  CONTINUE 

THE  FOLLOWING  IS  THE  GENERAL  GOLDEN  SECTION  ITERATION. 

DETERMINE  THE  NEXT  SEARCH  INTERVAL. 

I F ( GW2 - EP . LE . GW  1  )  1600,2000 
1600  CONTINUE 

THE  NEW  INTERVAL  IS  C W 1 , NEXT 3  . 

GENERATE  DATA  FOR  THE  NEW  W2.  THE  NEW  Wl=  THE  OLD  W2,  SO  THE  DATA 
ASSOCIATED  WITH  THE  MEW  W1  -  DATA  ASSOCIATED  WITH  OLD  W2 . 

SCALE=W 1 
GW 1 =GW2 

POINTt 1 ) =  POI NT ( 2 ) 

W1  =W2 

W2- NEXT - F 1 « (NEXT-SCALE) 

CALL  MESSA.GC  (  7HG0LDSEC  ,  7HREMAI  NG) 

LL=LL+1 

CALL  REMAIN! XS.YS,  I S , LAX , LAY , L 1  A , L I B , LAN , XW , YW ,  IW,RX,RY,  IR, 

S  LN,LE,LS,LW,W2,XPC.YPC,  I  Cl ,XCEN,YCEN, 

S  XWO, YWO.NUM, REM, LL , AREAS,  I  MUM) 

CALL  MESSAGA ( 7HG0LDSEC) 

GW2= ABS ( A -AREAS ( LL ) ) 

WRITE (7, 40)  A , AREAS  ( LL )  , GW2 
ENDFILE  7 

CHECK  FOR  OPTIMALITY  IF  N0T  OPTIMAL,  UPDATE  POINT  AND  INCREMENT  K. 
IF(GW2.LE.ACL0S>  1700,1600 
1700  CONTINUE 
I REM  =  LL 

CALL  MESSAGR ( 7HG0LDSEC ) 

RETURN 

1800  CONTINUE 

POI NT ( 2 ) =  LL 
GOTO  2900 

WHEN  GW2-EP.GT.GW1  THE  PROGRAM  BRANCHES  TO  THE  FOLLOWING  FROM  LABEL 
1500.  THE  NEW  INTERVAL  IS  [SCALE, W21. 

GENERATE  DATA  FOR  THE  NEW  W1 .  THE  NEW  W2  =  THE  OLD  Wl,  SO 
THE  DATA  ASSOCIATED  WITH  THE  NEW  W2  =  DATA  ASSOCIATED  WITH  OLD  Wl. 

2000  CONTINUE 
NEXT  =  W2 


o  o 


QW2=GW1 

PO 1  NT  (  2 )  =  PO  INK  1  ) 

W2  =  WI 

W1 =SCALE+F1 * (NEXT-SCALE) 

CALL  MESSAGC ( 7HG0LDSFC , 7HREMA I NG ) 

LL=LL+I 

CALL  REMA I N  <  XS , YS ,  I S , LAX , LAY , L I  A , L I B , LAN , XW , YW ,  I W , RX , RY ,  1 R , 

S  LN, LE, LS, l.W.W) .XPC.YPC, IC1 , XCEN, YCEN, 

S  XWO, YWO, NUM, REM, LL, AREAS, INUM) 

CALL  MESSAGA ( 7HGOLDSEC ) 

GW1 =  ABS ( A -AREAS ( LL  )  ) 

WR 1 TE ( 7 , 40  )  A , AREAS (LL) , GW 1 
ENDFILE  7 

CHECK  FOR  OPTIMALITY,  IF  NOT  OPT  I MAL , UPDATE  POINT  AND  INCREMENT  K. 
IF(GWI . LE. AC! OS)  2200,2300 
2200  CONTINUE 
I REM=LL 

CALL  MESSAGP ( 7HG0LDSEC ) 

RETURN 

2300  CONTINUE 

PO I  NT ( 1  ) =  LL 
2900  CONTINUE 
3000  CONTINUE 
C  END  OF  DO  LOOP  3000. 

G 1 1 = AREAS ( PO I  NT ( 1  ) ) / A 
G22= AREAS ( PO I  NT ( 2 ) )/A 
WR I TE ( 6 , 60 )  W 1 , G 1 1 , W2 , G22 
WR I TE ( 7 , 60 )  W 1 , G 1 1 , W2 , G22 
C  ENDFILE  6 

WR I TE ( 8 , 60 )  W 1 , G 1 1 , W2 , G22 

60  FORMAT <» AT  W1=*,G15.5,»  THE  REMAINDER  AREA  IS  *,015.5,*  OF  A.*, 

*  * AT  W2=* , G15. 5, *  THE  REMAINDER  AREA  IS  *, 015.5,*  OF  A.*) 

WR 1 TE ( 6 , 70) 

C  ENDFILE  6 

WRI TE(8, 70) 

70  FORMAT! ‘ACCEPT  W1  OR  W2  AS  OPTIMAL  (Y  OR  N).  FOLLOW  Y«. 

*  *  IMMEDIATELY  BY  01  FOR  W1  ,  02  FOR  W2« ) 

READ ( 5 , 20 )  Q.NUINC 

WRITE (6, 20)  Q.NUINC 
WRI TE<  7, 20)  Q.NUINC 
WR I TE ( 8 , 20 )  Q.NUINC 
IF(Q.EQ.IHN)  GOTO  4000 
I F ( NU 1 NC  EQ .01)  3300,3400 
3300  CONTINUE 

1 REM  =  PO I  NT ( 1  ) 

CALL  MFSSAGR!  7HG01.0SEC  ) 

RETURN 

3400  CONTINUE 

I REM  =  PO I  NT ( 2 ) 

CALL  MESSAGR ( 7HG0L  DSEC ) 

RETURN 

4000  CONTINUE 

WRI TE ( 6 , 80) 

C  ENDFILE  6 

WRI TE(8, 80) 

80  FORMAT! *AREA  OF  THE  REMAINDER  POLYGON(S)  IS  NOT  CLOSE  TO  *, 

S  ‘AREA  OF  THE  INPUT  POLYGON , XPC , YPC .  RETURN  CONTROL  TO  «, 

*  ‘FUNCTION  SELECTION  (Y  OR  N)») 

READ ( 5 , 20 •  Q 

WR I TE ( 6 , 20 )  Q 
WRITE! 7, 20)  Q 


! 
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WRITE<8,20>  0 
I F( Q . EQ .  1HY)  FLAG=.F. 

I F( .NOT. FLAG)  RETURN 
WRITE (6, 90) 

C  ENDFILE  6 

WRI TE(3, 90) 

90  FORMAT ( *  THE  001 OEN  SECTION  ITERATIONS  WILL  CONTINUE*) 

GOTO  1150 

RETURN 

END 

SUBROUTINE  I NTOCXS, YS, I S, JMI N, JMAX , XWO , YWO , NUM , REM , LL , MAXPOL  , IP, 

$  IL) 

INTO  INSERTS  THE  CONTENTS  OF  ( XS < I S ( 1 , JO >  + 1  ) , YS ( I S ( 1 , JO >  + 1  > )  , 

I =1 ,  IS<2, JO) ,  JO=JMIN, JMAX,  IN  ( XWO ( NUM (1  , KO )  +  I  > , YWO ( NUM  (  1  ,  KO ) F 1  )  )  , 
1*1, NUM(2, KO) ,  KO=REM( 1 , LL ) +MAXP0L+1 , REMC 1 , LL ) +MAXPOL+ JMAX - JM I N+ 1 , 
WHERE  NUM ( 2 , KO )  =  I S ( 2 , JO  >  .  SEE  COMMENTS  OF  REMAIN  FOR  DEFINITIONS  OF 
REM  AND  NUM.  WHEN  INTO  IS  CALLED,  MAXPOL  IS  THE  NUMBER  OF  POLYGONS  IN 
POSITION  POLYGONS  1  TO  1 P- 1  BUT  NOT  IN  LAND  1  TO  IL. 

THUS  MAXPOL*  REM ( 2 , LL  >  AT  ITERATION  IP-1. 


DIMENSION  XS(  1  )  , YS(  1  ) ,  IS<  2,  1  ) ,XWO<  1  ) , YWOC  1  ) , NUM(2,  1  ) 

I NTEGER  REM  t  2 ,  1  ) , REM  1  , REM  1  1 
CALL  MESSAGA  <  7H I NTO  ) 

A  DATA  STATEMENT  IN  MOVMENT  INITIALIZES  REM ( 1 ,  1  ) =NUM ( 1  ,  1  )  =0 . 
REMM.LL+1)  IS  FIXED  WHEN  THE  FINAL  NUMBER  OF  POLYGONS  IN  SET  LL  IS 
KNOWN.  THUS  AT  THE  END  OF  THIS  ROUTINE  REM(1,LL+1)  IS  COMPUTED. 

REM( 2 , LL )  VARIES  AT  EACH  CALL  TO  INTO.  REM<  2, LL )  SHOULD  BE  SET  TO  0 
EACH  TIME  IL  INCREASES.  EACH  TIME  IL  INCREASES  IP  IS  RESET  TO  1 
AND  MAXPOL  IS  RESET  TO  0,  THUS  I P= 1  IS  THE  TEST  TO  SET  REM( 2, LL )  TO  0. 
AS  IL  IS  CONSTANT,  AND  EACH  TIME  IP  INCREASES  (MAXPOL  IS  NONZERO  HERE) 
REM ( 2 , LL )  INCREASES  BY  JMAX  EACH  TIME  INTO  IS  CALLED. 

NUM ( 1 , REM ( 1 , LL+ 1 ) + 1 )  IS  FIXED  WHEN  THE  FINAL  NUMBER  OF  VERTICES  IN  SET 
LL  IS  KNOWN  THUS  NUM ( 1 , REMC 1 , LL+ 1 )+ 1 )  IS  COMPUTED  AT  THE  END  OF  THIS 
ROUTINE. 


REM 1 =  REM ( 1  , LL) 

1 F ( IP.EQ.  1  )  REM ( 2 , LL ) =  0 

REM ( 2 , LL ) = REM  <  2 , LL ) + JMAX -JMI N+ 1 

KO  IS  THE  NUMBER  OF  THE  POLYGON  CURRENTLY  BEING  TRANSFERRED  TO 
(XWO, YWO) . 

K0=REM1 +MAXPOL 
WRI TEC  7, 30) 

30  FORMAT ( *  TH I S  OUTPUT  IS  FROM  ROUTINE  INTO.*) 

WRI TEC  7. 40)  LL,  I L ,  I P, MAXPOL, JMI N, JMAX, LL, REMC  1  , LL )  ,  I  L , REMC  2, LL ) 
ENDFILE  7 

40  FORMAT ( *LL  =  * ,13,*  IL=*,I3,*  IP**,  13,*  MAXPOL* * ,  I  3 , *  JMIN=*,I3, 

*  *  JMAX**,  13,*  REMC  1  , * ,  I  3,  *  )  ** ,  I  3. *  REM ( 2 , * ,  I  3 ,  *  )  = * ,  I  3  ) 

DO  3000  JO*  JM I N , JMAX 
K0=K0+1 
I  SI  *  I  SC  1  , JO) 

WR I TE (7,45)  ISC1, JO) 

45  FORMATC *  I  SI  =  ISC  1  , JO) =* ,  I  8) 

NUM 1 =  NUM (  1 ,K0) 

NUM ( 2 , KO ) = I S2= I S ( 2 , JO) 

4?  FORMATC * IS2* ISC2, JO) =* ,  I  8) 

WR 1 TE ( 7 , 47 )  ISC2.J0) 
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WRI TE( 7,48)  ( XS(  IS1  +  I  ) ,YS(  I  S  1  + 1  ) ,  I -1  ,  I  S2 ) 

48  FORMAT ( *  <  XS , YS )  IS*, /(5<G13. 5,0135))) 

NUM  ( 1 , K0+ 1 ) = NUM (  1 , KO ) ♦ 1 S2 
DO  2000  1=1,1 S2 

XWO ( NUM 1 + I >=XS( IS1  +  I ) 

YWO <  NUM 1  +  I  ) =YS<  I  SI +1  ) 

2000  CONTINUE 

WR 1 TE ( 7 , 50 )  JO , KO , NUM ( 1 , KO ) , KO , NUM ( 2 . KO ) 

50  FORMAT ( *  JO*  * ,  I  3, *NUM< 1  , * ,  1 3, * >  =  * ,  I  3 , * NUM < 2 , * ,  I  3 , * >  =  *,I3, 

S  *THE  CONTENTS  OF  XWO, YWO  ASSOCIATED  WITH  THESE  INDICES  ARE*) 

WR I TE ( 7 , 60 )  <  XWO  C  NUM 1  +  1  ) , YWO ( NUM 1  +  1  )  ,  I  =  1 ,  I S2 ) 

ENDFILE  7 

60  FORMAT (  5 ( G 1 3  6 , G 1 3 . 6 ) ) 

3000  CONTINUE 

COMPUTE  REM< 1 , LL+1 ) , NUM< 1 , REM( 1 , LL+1 >+1 ) .MAXPOL 

REM ( 1 , LL+1 >=R£M1 1 =  REM( 1 , LL ) +REM ( 2 , LL ) 

NUM  C  1  , REM 1  1  +  1  ) =NUM(  1  , REM!  1  ) +NUM( 2, REM  1  1  ) 

MAXPOL  =  MAXPOL.  +  JMAX-  JMIN+1 
CALL  MESSAGR!  7HI  NTO  ) 

RETURN 

END 

SUBROUTINE  MOVFCEN ( M , N , JA, JB . X . Y .  I  A ,  I B, P, SE, KE , KLA , XW, YW, J ,  I  LA , 

S  JLA ,  XCEN ,  YCEN  ,  H,  LAX,  LAY  ,  LI  A  ,  L  I B ,  LAN ,  LAND ,  L.N  ,  L  E ,  LS,  LW,  I  NPUT, 

S  COUNT, FLAG) 

MOVECEN  IS  CALLED  BY  POL  THE 

VELOCITY  DISTRIBUTION  IS  MOVED  TO  TIME  M+1  ACCORDING  TO  THE  POSITION 
DISTRIBUTION  AT  TIME  M+1  AND  MK .  LAND  INTERACTIONS  ARE  CONSIDERED.  A  MOVED 
VELOCITY  POLYGON  WHOSE  CENTROID  IS  CONTAINED  IN  A  LAND  MASS  IS  REPLACED  BY 
TWO  VELOCITY  POLYGONS  MOREOVER  THE  CENTROIDS  OF  THE 
REPLACEMENT  POLYGONS  ARE  CONTAINED  IN  NO  LAND  MASS. 

DIMENSION  JA(2,5,9),JB(2,5,9),X!1  ),Y(1  ),  I  A ( 1  ),  IBM  ),P(1), 

*  SE<  1  )  , HI  1  ) , KE<  2, 5, 9) , XW (  1  ) , YW<  1  )  ,XCEN(  1  ) , YCEN  C 1  ) , VX ( 2 ) , VY ( 2 > , 

S  CPROB  (2), LIAM  ),LIB(1  ) 

REAL  LAX  (  1  )  ,  LAY  (  1  )  ,  L.N(  1  )  ,  LE  <  1  )  ,  LS  t  1  )  .  LW  (  1  ) 

INTEGER  COUNT, ENSYD2.ENS 

LOG  I  CAL  LAND ,  I NPUT (2,5,9), FLAG .MINI  MAX 

CALL  MESSAGA ( 7HM0VECEN ) 

WRI TE<6, 10) 

WRITE! 8. 10) 

1 0  FORMAT ( *SLI N  2* ) 

Ml =  M+1 

FINO.MK,  THE  MOST  RECENT  INPUT  CENTROID  DISTRIBUTION  IN  ORDER  TO 
MAINTAIN  VELOCITY  TENDENCIES. 


MK  =  M 
FLAG*  T. 

I  Ft  (  . NOT  LAND)  . OR  <  1 NPUTf 2, M, N) )  )  GOTO  300 
DO  ?00  ME  =  2 ,  M 
MK  =  M -  ME  + 1 

IF< INPUT! 2,MK , N) )  GOTO  300 
200  CONT I NUE 

WRI TE ( 6 , 15) 

WRITE! 7, 15) 

ENDFILE  6 
ENOFILE  7 
WRITE (8, 15) 

15  FORMAT ( *VELOC! TY  DISTRIBUTION  IS  UNDEFINED*) 
FLAG*  F 
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!F( .NOT. FLAG)  RETURN 
300  CONTINUE 

SE1 =-SE< 1 +KE ( 1 ,MK, N) )+SE< 1+KE! 1 , Ml ,  N )  ) 

SE2=-SE!2-tKE! 1 , MK , N ) )+SE( 2+KE( 1 ,M1 , N) ) 

JJ  =  0 

JA2=JA(2,MK,N) 

JB2=JB!2,MK,N) 

00  4000  J1 =JA2, JB2 
IA1=IA(J1 ) 

I  &  1  =  I  B  (  J 1  ) 

1 W 1  =  1 B1 -1A1+1 

I F <  .NOT. LAND)  GOTO  3100 

XO=XCEN( J1 ) rSEI 

YO=YCEN( J 1 ) +SE2 

00  3000  1 1_=  1  ,  LAN 

WRITE! 6, 20)  J1 , IL 

ENDFILE  6 

WRITE! 7, 20)  J1.1L 

ENDFILE  7 

WR I TE  <  8 , 20 )  J 1 ,  I L 

20  FORMAT!*  MOVECEN  CALLS  M I N I  MAX * . 2 ( I  3 )  ) 

I F  <  M I N I  MAX ( YO , XO , YO , XO , LN ! I L ) , LE ! 1 L ) , LS ( I L ) , LW (  I L ) ) ) 

%  GOTO  2900 

TEST  FOR  IXO.YO)  CONTAINED  IN  LAND  MASS  IL, 

SINCE  (XO.YO)  IS  CONTAINED  IN  THE  RECTANGLE  OF  LAND  MASS  IL. 

IF  NOT,  INCREASE  IL. 

LI  =I.IA<  IL) 

L2  =  L I B ( I L) -  1 
DO  400  I =L1 , L2 
L0= I -L1+1 
XW(LO) *LAX! I  ) 

YW 1 LO ) =  LAY !  I  ) 

400  CONTINUE 

WR I TE ( 8 , 25 )  J1 , IL 
WRI TE<6, 25)  J1  ,  IL 
ENDFILE  6 
WRI TE! 7, 25)  J 1 , I L 
ENDFILE  7 

25  FORMAT!*  MOV/ECEN  CALLS  ENSYD2*  ,  2 !  I  3 )  ) 

ENS*  ENSYD2 !  DBLE  !  XO  )  ,  DBLE!  YO)  ,  XW,  YW,l„0> 

WRI TE! 7, 27)  ENS 
27  FORMAT ! *ENSYD2=* ,  I  2) 

IF(ENS.EO.O)  GOTO  2900 
WRI TE! 8, 30)  J1  ,  IL 
WRI TE!6, 30)  J1 , IL 
ENDFILE  6 

30  FORMAT! *AFTER  MOTION  CENTROID  OF  *,I3,»  IS  IN  LAND  MASS  *, 

S  13) 

COMPUTE  REPLACEMENT  POLYGONS. 

COURSE  CHANGE  PROBABILITIES  ADD  TO  1.  THESE  PROBAB 1 1. 1 TES 
DISTRIBUTE  THE  WEIGHT  OF  POLYGON  J1  AMONG  THE  TWO  VELOCITY  POLYGONS 
COMPUTEO  BY  THE  CODE  BELOW  TO  LABEL  1000. 

WRI TE! 6, 40) 

ENDFILE  6 
WRI TE! 8, 40) 

40  FORMAT! *PROBABI LI TY  OF  COURSE  CHANGE -- COUNTERCLOCKW I SE  *, 

*  /*  F 1 0 . 5* ) 

READ! 5, 50)  CPROB(I) 


oooooo  oooooooo  ooo 


CPR0BC2) -1 . - CPROB ( 1 ) 

50  FORMAT ( F 1 0 . 5) 

WRITE (6, 60)  CPROB ( t ) , CPROB ( 2 ) 

C  ENDF1LE  6 

WRITE (8, 60)  CPROB ( 1 ) , CPROB ( 2) 

60  FORMAT ( * COUNTERCL OCK W I SE  COURSE  PROBABILITY^  *,F10.5, 

S  *  .CLOCKWISE  COURSE  PROBABILITY^  *,F10.5) 

CALCULATE  NEW  VELOCITY  POLYGONS 

WR I TE ( 7 , 60 )  CPROB  Cl). CPROB ( 2 ) 

ENDF1LE  7 

EACH  VELOCITY  POLYGON,  BEING  COMPUTED,  HAS  CENTROID  GIVEN  BY 
NEWCEN,  (VX< 1 ) , VY< 1 ) )  CONTAINS  THE  COUNTERCLOCKWISE  (OR  LEFT) 
RESULTING  CENTROID,  (  VX  (  2  >  ,  VY  <  2  )  )  CONTAINS  THE  CLOCKWISE  (OR  RIGHT) 
RESULTING  CENTROID  (VX.VY)  ARE  COMPUTED  TO  BE  CONTAINED  IN  NO  LAND 
MASS  AND  CLOSE  TO  (XO.YO). 

CALL  MESSAGC  (  7HM0VECEN,  7HNEV1CEN  ) 

CALL  NEWCEN (XO, YO , LAX , LAY , L I  A , L 1 B , LAN , LN . LE , LS , LW ,  IL, 

$  VX, VY, SE( 1 +KE ( 1 , Ml , N) > , SE( 2+KE( 1 ,M1 , N) > , XW, YW, LO, CO"NT, 

S  FLAG) 

CALL  MESSAGA ( 7HM0VECEN ) 

I F( . NOT. FLAG)  RETURN 
DO  1000  K=1 ,2 
DO  800  I  =  I  A  1  ,  I B 1 
I U= 1  -  I A1 +1 

XW(  1 U ) =  X  <  I  ) - XCEN ( J 1  ) +VX ( K ) 

YW( I U) =Y(  I  ) - Y  CEN ( J 1  )+VY(K> 

800  CONTINUE 

CALL  MESSAGC ( 7HM0VECEN  7HVEC  ) 

CALL  VEC ( 1 , IW1 ,XW, YW) 

CALL  MESSAGA ( 7HM0VECEN ) 

JJsJJ+1 

CALL  MESSAGC (  7HM0VECEN, 7HPUT  ) 

CALL  PUT< 2, Ml  , N, JJ,  I W1  , XW , YW,  I  A  I B , JA , JB , J , X , Y ,  I  LA , JLA ) 

CALL  MESSAGA ( 7HM0VECEN) 

P( J)=P( J1  ) *  CPROB ( K ) 

1000  CONTINUE 
GOTO  3900 
2900  CONTINUE 

CENTROID  OF  NGON  J1  IS  NOT  CONTAINED  IN  LAND  MASS  IL. 

3000  CONTINUE 

CENTROID  OF  NGON  J1  IS  NOT  CONTAINED  IN  ANY  LAND  MASS 

3100  CONTINUE 

DO  3500  I  =  I  A  1  ,  IB1 
I  U= I  -  I  A 1 + 1 
XW< IU)=X( I  ) +SE 1 
YW ( I  0 ) —  Y (  I  ) +SE2 
3500  CONTINUE 

CALL  MESSAGC ( 7HM0VECEN . 7HVEC  > 

CALL  VEC ( 1 , IW1 , XW, YW) 

CALL  MESSAGA ( 7HM0VECEN ) 

JJ=J J+1 

CALL  MESSAGC ( 7HM0VECEN, 7HPUT  > 

CALL  PUT ( 2, Ml ,N,JJ,IW1,XW,YW,IA.IB,JA,JB,J.X,Y,ILA, JLA) 
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CALL  MESSAGA ( 7HM0VECEN ) 

P( J)=P( J1 ) 

3900  CONTINUE 
4000  CONTINUE 

CALL  MESSAGCC 7HM0VECEN , 7HUP0ATE  ) 

CALL  UPDATE  (Ml  ,  N,  JA ,  JB ,  X ,  Y  ,  I  A ,  I  B ,  P ,  XCEN ,  YCEN ,  J,  I  LA,  JLA ,  SE ,  KE , 

%  H,KLA, FLAG, 2) 

CALL  MESSAGA (7HMOVECEN) 

WR I TE ( 6 , 97 ) 

C  ENDFILE  6 

WR I TE ( 7 , 97 ) 

C  ENDFILE  7 

WRI TE( 8, 97) 

97  FORMAT (*SL IN  1*) 

CALL  MESSAGR ! 7HM0VECEN ) 

RETURN 
END 

SUBROUT  I NE  NEWCEN <  XO , YO , LAX , LAY , L I  A , L I B , L AN, LN , LE . LS , LW ,  I L , VX , VY , 

S  SE I , SE2, XW, YW, LO, COUNT, FLAG) 

NEWCEN  ITERATIVELY  CALCULATES  CANDIDATES  FOR  NEW  VELOCITY  CENTROIDS.  ALL 
CANDIDATES  ARE  OF  THE  FORM  <X(A>,Y(A)>  WHERE 
X( A) =  SE1 +CX0-SE1 )COS( A)+(Y0-SE2)SIN(A) 

Y ( A ) =  SE2+ ( Y0-SE2 ) COS  <  A ) - ( XO -SE 1  ) S 1 N ( A )  . 

THE  ALGOR  I HM  STOPS  WHEN  A  NEGATIVE  A=A1  AND  A  POSITIVE  A  =  A2  ARE  FOUND 
S.T.  (X(A1 ) , Y ( A 1 ))  AND  ( X ( A2 ) , Y ( A2 ) )  ARE  CONTAINED  IN  NO  LAND  MASS, 

OR  WHEN  TIME  IS  UP. 

NEWCEN  IS  CALLED  BY  MOVECEN. 

DIMENSION  LI A( 1 ) ,LIB( I ) . VX( I ) , VY< 1 ) ,XW<1 ) , YW( 1 ) , XS ( 200 ) , YS ( 200 ) 

REAL  LAX ( 1 ) , LAY ( 1 ) ,LN< 1 ) ,LE( 1 ) ,LS< 1 ) ,LW( 1 ) 

INTEGER  TIME, COUNT, ENSY02, ENS 
LOG 1  CAL  FLAG , FLAG 1  , M I N I  MAX 
DATA  PI /3. 141592653/ 

CALL  MESSAGA (7HNEWCEN  ) 

XOS=XO -SE 1 
Y0S=Y0-SE2 
DELTA=P I / 1 8 . 

D2=0ELTA 
FLAG=.T. 

FLAG 1 = . F. 

WR I TE ( 7 , 10)  XO , YO , SE1 ,SE2,XOS,YOS 

10  FORMAT ( *XO  =  *,G15  5,»  Y0=  *,G15,5,*  SEI=  *,GI5.5,*  SEZ-  *,<315.5, 

S*  XOS  =  * , G 1 5 . 5 , *  YOS  =  *,G15.5) 

ENDFILE  7 
KAY  = 1 8 

KK  IS  THE  NEW  CENTROID  INDEX  OF  DIRECTION. 

WHEN  KK  =  1  ,  THE  COUNTERCLOCKWISE  NEW  CENTROID  IS  COMPUTED  AND  STORED  IN 
(VX( 1  ) , VY( 1  ) ) .  WHEN  KK  =  2,  THE  CLOCKWISE  NEW  CENTROID  IS  COMPUTED  AND 
STORED  IN  <VX<2) ,VY<2) ) . 

DO  3000  KK1 1 ,2 
10  =  0 

190  CONTINUE 
T I ME=Q 

TIME  COUNTS  THE  ABSOLUTE  NUMBER  OF  CANDIDATES  FOR  NEW  CENTROID 
GENERATED  FOR  FIXED  KK . 

200  CONTINUE 

DO  2000  I TER= 1 , KAY 
T I ME=T I ME+ 1 
DELI =DELTA*I TER 
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I F ( 10  NE . 0 )  DELI =  D1 +02*1  TER 
1 F ( KK  EQ .  1 )  DEL! =-DELI 
COSDEL  =  C0S ( DEL  I  ) 

S I NDEL=S l N( DEL  I  ) 

COMPUTE  CANDIDATE  FOR  NEW  CENTROID,  (X1,Y1). 

XI  =  SE  1 +XOS*COSOEL+YOS*S  I  NOEL 
Y1  =  SE2+YQS* COSDEL -XOS*S  1 NDEL 
WR I TE ( 7,  15)  TIME,  I  TER, DELI  , XI  , Y1 

15  FORMAT ( *  T I ME=  * ,  13,*  1  TER  =  *,13,*  DEL  I =  *,G15  5,*  X1  =  *,615. 5, 

S*  Y 1 =  *,615.5) 

CALL  MESSAGC ( 7HNEWCEN  , 7HENSYD2  ) 

ENDFILE  7 

CHECK  FOR  (XI  ,  Y 1  )  IN  LAND  IL.  IF  SO,  COMPUTE  NEW  (XI  , Y 1  ) 

ENS=ENSYD2 ( DBLE ( X 1 ) , DBLE ( Y 1 ) ,XW, YW, LO ) 

WRITE (7, 17)  ENS 
17  FORMAT ( *£NSYD2=  *  ,12) 

1 F ( ENS . EQ . 1 )  GOTO  1900 
FLAG1 = . T. 

(XI  ,  Y 1  )  IS  NOT  CONTAINED  IN  LAND  MASS  IL. 

CHECK  FOR  (XI, Y1)  CONTAINED  IN  OTHER  LAND  MASSES. 

DO  1 000  L= 1 , LAN 

WHEN  L=  I  L ,  THE  ANSWER  'S  ALREADY  KNOWN. 

IF(L.EQ. IL)  GOTO  900 
CALL  MESSAGC (7HNEWCEN  , 7HMI N 1  MAX ) 

CHECK  FOR  (XI , Y 1 )  IN  THE  RECTANGLE  OF  LAND  L.  IF  NOT  INCREASE  L.. 

I F( Ml N1 MAX ( Y 1  ,X1 ,Y1  , X 1  ,LN(L>,LE(L),LS(L), LW( L ) ) )  GOTO  900 
CHECK  FOR  (X1.Y1)  IN  LAND  L.  IF  NOT  INCREASE  L 
LI =L1 A(L) 

L2=L I B ( L ) 

DO  400  1 =  L1 , L2 
10= I -LI +1 
XS< IO) =LAX( I ) 

YS( 10) =LAY< I  ) 

400  CONTINUE 

I0=L2-L1 +1 

CALL  MESSAGC! 7HNEWCEN  , 7HENSYD2  ) 

ENS=ENSYD2 ( DBLE ( X 1 ) , DBLE ( Y 1 ) , XS, YS, 10) 

WRITE (7, 17)  ENS 
lF(ENS.EQ.O)  GOTO  900 

(XI, Y1)  IS  CONTAINED  IN  LAND  MASS  L.  THE  I  NTERVAL ,  t DEL  I -D2 , DEL  1) , HAS 
THE  PROPERTY  ( X ( DEL  I  - 02 ) , Y ( DEL  I  - D2 )  )  IS  IN  LAND  IL,  AND 
( X ( DEL  1  ) , Y ( DEL  1  ) )  IS  IN  LAND  L.  THE  INTERVAL  IS  SEARCHED  TO  FIND 
(XI , Y 1 )  CONTAINED  IN  NO  LAND. 

I  0  =  L 

D 1 =0EL I -D2 
D2=D2/ 10. 

IF(TIME.LE. COUNT)  GOTO  200 
WRI TE(6, 20) 

C  ENDFILE  6 

WRITE! 6, 20) 

20  FORMAT (*  THE  NUMBER  OF  ALLOWED  ITERATIONS  IS  EXCEEDED.*, 


A-46 


o o o o o o o o o o o o o o o o o o  non  oooo  oooo 


S  *RETURN  CONTROL  TO  FUNCTION  SELECTION  (Y  OR  N>*> 

READ (5, 25)  Q 
25  FORMAT (A1) 

IF(Q.EQ.IHY)  FLAG=.F. 

1F( .NOT. FLAG)  RETURN 
WRITE! 6, 30) 

C  ENDFILE  6 

WR I TE ( 8 , 30 ) 

30  FORMAT!*  THE  NEWCEN  I NTERAT I ONS  WILL  CONTINUE.*) 

GOTO  190 
900  CONTINUE 

! X 1 , V 1 J  IS  NOT  CONTAINED  IN  LAND  MASS  IL,  NOR  IN  THE  RECTANGLE  OF 
LAND  MASS  L,  NOR  IN  LAND  MASS  L. 

1000  CONTINUE 

! X 1 , Y 1 )  IS  A  FEASIBLE  NEW  CENTROID,  SINCE  IT  IS  CONTAINED  IN  NO 
LAND  MASS. 

VX(KK) =  X1 
VY ( KK >  =  Y  1 
GOTO  2900 
1900  CONTINUE 

(XI , Y 1 )  IS  CONTAINED  IN  LAND  MASS  IL 

2000  CONTINUE 
2900  CONTINUE 
3000  CONTINUE 

WR 1 TE (7,49) 

49  FORMAT! * COUNTERCLOCKW 1 SE  NEW  CENTROID  WHEN  KK=1,  CLOCKWISE  NEW  *, 

S  * CENTRO  ID  WHEN  KK=2.*) 

DO  4000  KK=1 , 2 

WRITE! 7, 50)  KK , VX ( KK ) , KK , VY ( KK > 

4000  CONTINUE 

50  FORMAT!* VX! *,  I  1  ,* )=  *,G15.5,*  VY ( * ,  I  1 , * )  =  *,G15.5) 

CALL  MESSAGR! 7HNEWCEN  ) 

RETURN 

END 

SUBROUTINE  REMA I N ( XS , YS ,  1 S , LAX , LAY , L I  A , L I B , LAN , XW , YW ,  I W , RX , RY ,  IR. 

*  LN,LE,LS,LW, ALPHA, XPC.YPC, ICI , XCEN , YCEN , XWO , YWO , NUM , REM , LL , 

*  AREAS, I NUM) 

REMAIN  COMPUTES  THE  REMAINDER  POLYGONS.  THAT  IS  A  POLYGON  0  IS  COMPUTED 
FROM  XPC.YPC,  XCEN, YCEN,  AND  THE  SCALE  FACTOR  ALPHA.  REMAIN  CALCULATES 
THOSE  PARTS  OF  0  INTERSECTING  NO  LAND  MASS.  EACH  SUCH  PART  OF  Q,  CALLED 
A  REMAINDER  POLYGON,  IS  A  MEMBER  OF  REMAINDER  SET  LL . 

ALL  REMAINDER  SETS  ARE  STORED  IN  XWO, YWO. 

REM! 1 , LI.)  IS  THE  OFFSET  OF  THE  INDEX  OF  REMAINDER  SET  LL ,  ALSO  CALLED 
REM  1  ,  IN  NUM. 

REM ( 2 , LL )  IS  THE  NUMBER  OF  POLYGONS  IN  REMAINDER  SET  LL,  ALSO  CALLED 
MAXPOL,  IN  NUM. 

NUM!1,J)  IS  THE  OFFSET  OF  THE  INDEX  OF  THE  JTH  POLYGON  IN  XWO, YWO, 

ALSO  CALLED  NUM1 . 

NUM ( 2 , J )  IS  THE  NUMBER  OF  VERTICES  IN  THE  JTH  POLYGON  IN  XWO, YWO, 

ALSO  CALLED  NUM2 . 

THE  OFFSET  OF  POLYGON  K  IN  REMAINDER  SET  LL  IS  REM ( 1 , LL ) +K 

THE  OFFSET  OF  THE  INDEX  OF  POLYGON  K  IN  REMAINDER  SET  LL  IN  XWO, YWO  IS 

NUM! 1 , REM! 1 ,LL)+K) . 

THE  VERTICES  OF  POLYGON  K  IN  REMAINDER  SET  LL  ARE  GIVEN  BY 
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* 


XWO(NUM(  1  ,  REM(  1  ,  LD+KJ  +  I  )  ,  YWO < NUM <  1  ,  RECK  1  ,  LL)+K)  +  I  )  ,  1  =  1,  NUM<2,  RECK  1  ,  LL) 

+K ) 

AREAS ( LL )  IS  THE  AREA  CONTAINED  THE  LARGEST  POLYGON  IN  REMAINDER  SET  LL . 
INUM(LL)  IS  THE  INDEX  OF  THE  LARGEST  POLYGON  IN  SET  LL. 

REMAIN  IS  CALLED  BY  GOl.DSEC  AND  POSINT. 

REAL  LAX  (  1  ) , LAY ( 1  ) , NORTH , LN ( 1 > , LE ( 1 ) , LS ( 1  > , LW  C 1  ) 

INTEGER  REM( 2, 1 ) , REM1 

DIMENSION  XPCl 1  ) , YPC< 1 ) , L I A ( 1 ) , L I B ( 1  ) , XW( 1  ) , YW( 1  ) ,  I W( 2,  1 ) , 

S  RX(1  )  ,  RY(  1  )  ,  IR(  2,  1  )  ,  I NUM ( 1  ) ,XWO( 1 ) , YWO( 1 ) , 

S  NUM( 2 ,  1  )  ,  AREAS ( 1  )  ,  XS  (  1  )  ,  YS  (  1  ) ,  I  S  (  2 ,  1  ) , XT ( 200) , YT( 200) , WK <  300) 

CALL  MESSAGA ( 7HREMA I N  ) 

IR< 1 , 1 )  =  IS< 1 , 1 )  =  I W  < 1 , 1 )=0 
REM 1 =0 

IFCLL.GT.l)  REM! =REM< 1 , LL) 

NUMR=NUM< 1 , REM1 +1 ) 

DO  1000  1  =  1 ,  I  Cl 

RX ( I ) =ALPHA*XPC( I )+< 1 . -ALPHA ) *XCEN 
RY ( 1 ) = ALPHA* Y PC ( 1 )+( 1 . -ALPHA) *YCEN 
1000  CONTINUE 

I  R(  2,  1  )  =  I  C 1 
JMAX= 1 
MAXPOL= 1 

MAXPOL  KEEPS  A  RUNNING  TOTAL  OF  THE  NUMBER  OF  POLYGONS  IN  POSITION 
POLYGONS  1  TO  IP-1  BUT  NOT  IN  LAND  1  TO  IL.  MAXPOL  IS  UPDATED 
IMMEDIATELY  BEFORE  IP  INCREASES  AND  AT  THAT  POINT  IT  IS  THE 
NUMBER  OF  POLYGONS  IN  POSITION  POLYGONS  1  TO  1 P  BUT  NOT  IN  LAND 
1  TO  IL. 

MAXPOL  COUNTS  THE  NUMBER  OF  POLYGONS  STORED  IN  XWO, YWO  FOR  REMAINDER 
SET  LL.  LAN  IS  THE  NUMBER  OF  LAND  MASSES. 

DO  4000  I L= 1 , LAN 
WR I TE ( 7 , 20 )  IL 
20  FORMAT (* 1 L= * , 13) 

TEST  EACH  CHAIN  IN  RX , RY  FOR  INTERSECTION  WITH  LAND  MASS  IL 

NO=MAXPOL 
MAXPOL =0 
LI =L!A( IL) 

L2=L I B ( I L )  - 1  .  .  .  « 

DO  3000  I  P=  1  ,  NO 

CALL  MESSAGC ( 7HREMA I N  , 7HRECTAN  ) 

I  1  =  I R( 1 ,  IP)  +  1 
I  2=  IR<  1  ,  1  P)  +  1R<  2,  IP) 

CALL  RECTANC I  1 ,  12, RX, RY, NORTH, EAST , SOUTH , WEST ) 

CALL  MESSAGC ( 7HREMA1 N  ,7HMIN!MAX> 

I F(MI NIMAXf  NORTH, EAST, SOUTH, WEST, LN(  I L ) , LE ( I L )  , LS (  I L ) , 

S  LW( IL) ) )  1500, 1700 

1500  CONTINUE 

POLYGON  IP  DOES  NOT  INTERSECT  LAND  MASS  IL. 

STORE  POLYGON  IP  IN  (XWO, YWO), 

CALL  MESSAGC < 7HREMA IN  ,7H!NT0  ) 

JMI N= JMAX= I P 

CALL  I NTO ( RX , RY ,  I R  ,  JM I N ,  JMAX , XWO , YWO , NUM , REM , LL , MAXPOL  ,  IP, 

S  IL) 

C 
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C  INCREMENT  IP  COUNTER 

C 

GOTO  2900 
1700  CONTINUE 

C 

C  A  NONEMPTY  INTERSECTION  BETWEEN  IL  AND  IP  IS  POSSIBLE. 

C  GENERATE  AND  STORE  THE  POLYGON(S)  IN  IP  BUT  NOT  IN  IL 

C  IN  (XWO, YWO).  KAL  C  =  3 . 

DO  1 800  1=11,12 
10=1-11+1 
XW<  I  0 ) =RX ( I  ) 

YW ( I  0 ) =  RY ( I ) 

1800  CONTINUE 

DO  1900  1 =  L 1 , L2 
L0= I -L1+1 
XT ( LO ) =LAX ( I ) 

YT(LO)=LAY(  1  ) 

1900  CONTINUE 

CALL  MESSAGC  <  7HREMA I N  , 7H 1 UCALC  ) 

CALL  I UCALC ( XW, YW,  I  0 , XT , Y T , LO , 3 , WK , 300, JMAX,  IS, 20 , XS , YS , 200 ) 
CALL  MESSAGA ( 7HREMA I N  ) 

I F  < JMAX.LE.O)  1950,2000 
1950  WR I TE ( 8 , 35 )  JMAX 

WR 1 TE ( 6 , 35 )  JMAX 
C  ENDEILE  6 

WR I TE ( 7 , 35 '  JMAX 
C  ENDFILE  7 

35  FORMAT ( *  I UCALC  ERROR  IN  REMAIN. JMAX=  *,13) 

STOP  10 

2000  CONTINUE 

WRITE (8, 40)  IL, IP, JMAX 
WR I TE (6,40)  IL, I P , JMAX 
C  ENDFILE  6 

WR I TE (7,40)  IL, IP, JMAX 
C  ENDFILE  7 

40  FORMAT ( *  I L  =  * ,  I  3, *  IP=«,  13,*  THE  NUMBER  OF  RESULTS  CHAINS  *, 

S  *  s JMAX  =  * ,  I  3  ) 

JM I N= 1 

CALL  MESSAGC < 7HREMA IN  ,7HINT0  ) 

CALL  INTOIXS,  YS,  IS,  JMIN,  JMAX ,  XWO ,  YWO ,  NUM ,  REM,  LI- ,  MAXPOL,  IP, 

S  IL) 

CALL  MESSAGA (7HREMA IN  ) 

2900  CONTINUE 

3000  CONTINUE 
C 

C  THE  FOLLOWING  CODE  TRANSFERS  THE  DEVELOPING  REMAINDER  RESULT,  IN 

C  (XWO, YWO)  TO  (RX.RY).  THIS  TRANSFER  IS  UNNECESSARY  WHEN  I L  =  LAN . 

I F( I L . EQ . LAN)  GOTO  3999 
C 

C  MAXPOL = REM ( 2 , LL ) 

C  TRANSFER  TO  ( RX , RY )  THE  REMAINDER  POLYGONS  COMPUTED  FROM  THE 

C  INTERSECTION  OF  LAND  MASS  IL  AND  THE  CURRENT  CONTENTS  OF  (RX.RY) 

C  NUMR=THE  OFFSET  OF  THE  INDEX  OF  POLYGON  1  IN  SET  LL . 

C  NUM1=THE  OFFSET  OF  THE  INDEX  OF  POLYGON  IP  IN  SET  LL. 

C  THEREFORE  NUM 1 =NUMR  +  NUM ( 2 , REM 1 + 1  >  +  .  .  . +NUM ( 2 , REM 1 + 1 P -  1  ) ,  FOR  I R > 1 

C  WHENCE  NUM 1  - NUMR  =  NUM ( 2 , REM  1 + 1  >  +  .  .  , +NUM ( 2 , REM 1  +  I P -  1  )  IS  THE 

C  APPROPRIATE  OFFSET  IN  IR. 

C 

C 

c 

WR I TE (6,45)  IL, MAXPOL 
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C  ENDF 1 LE  6 

WRITE (7, 45)  I L , MAXPOL 
WR I TE ( 7 , 50 ) 

WRITE (8, 45)  I L , MAXPOL 

45  FORMAT ( *  AT  THE  END  OF  ITERATION  *,13,*  MAXPOL=  *,13) 

50  FORMAT!* THE  CONTENTS  OF  (RX.RY)  ARE  *) 

DO  3500  I P=1, MAXPOL 
J0=REM1 +1 P 
NUM1 =NUM( 1 , JO) 

I R 1 = I R ( 1 , I P ) =  NUM 1 -NUMR 
I R2= I R ( 2, IP)*NUM<2, JO) 

DO  3400  I *1 , IR2 

RX ( I R 1 + I ) =  XWO ( NUM I + I ) 

RY( IR1+I > =  YWO ( NUM I + I ) 

3400  CONTINUE 

WRITE! 7, 55)  IP 
55  FORMAT!* I P=  *, 13) 

WR I TE 1 7 , 80 )  <  RX ( 1 R 1 + 1  ) , R Y (  I R 1 + 1  ) ,  I  =  1 ,  I R2 ) 

C  ENDFILE  7 

3500  CONTINUE 

3999  CONTINUE 

4000  CONTINUE 

DETERMINE  AREAS! LL) 

CALL  MESSAGC ( 7HREMA I N  , 7HAREA  ) 

COMPUTE  AREA  OF  LARGEST  POLYGON. 

I NUM ! LL ) *  1 

AREAS ( LL ) * AREA ! XWO , YWO , NUM , REM  1 + 1 ) 

EP= . 0001 

I F I MAXPOL . EQ . 1 )  GOTO  5050 
DO  5000  I P=2, MAXPOL 
AR* AREA ( XWO , YWO , NUM , REM 1 + I P ) 

IF1AREASILL) .GE. AR-EP)  GOTO  4900 
AREAS ! LL ) * AR 
I NUM ( LL )  —  I P 
4900  CONTINUE 
5000  CONTINUE 
5050  CONTINUE 

CALL  MESSAGA ( 7HREMA I N  ) 

WRITE17.65)  LL 

65  FORMAT! *REMA I NDER  SET  *,131 

WRI TE(7, 70)  LL, REM! 1 , LL ) , LL, REM! 2, LL) , MAXPOL 
70  FORMAT ( *REM( 1,*,I3,*)**,I3,*  REM! 2, *,  I  3 ,*>=*,  I  3 , *  MAXPOL*  * ,  I  3 ) 

DO  6000  I P=1, MAXPOL 
J0=REM1  -HP 
NUM I =NUM I  1  , JO) 

NUM2=NUM ! 2 , JO) 

WRITE! 7, 75)  I P , JO , NUM 1 , JO , NUM2 

WRI TE! 7, 80)  (XWO! NUM1 +! ) , YWO! NUM1 +1 >,1=1, NUM2) 

C  ENDFILE  7 

6000  CONTINUE 

75  FORMAT!* IP**,  13,*  NUM! 1 , * ,  I  3 , *  )  =  * ,  I  3 , *  NUM ( 2 , * ,  I  3 , * )  =  *  ,  I  3 ,  *  THE* 
S  , *CONTENTS  OF  XWO, YWO  ASSOCIATED  WITH  THESE  INDICES  ARE  *) 

80  FORMAT (5(G13.6,G13.6) ) 

RETURN 

END 
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SUBROUT  1 NE  I UCALC ( APX , APY , NOAP , BOX , BCY , NOBC , K ALC , 

«  WORK , WRKMAX , NORC ,  I NORC ,  I  NOMAX , RCX , RCY , NRCMAX ) 

C 

C  THIS  ROUTINE  (1)  DETERMINES  THE  POLYGONS  DEFINING  THE  UNION, 

C  INTERSECTION,  OR  RELATIVE  DIFFERENCE  (I.E.  THE  INTERIOR  OF  ONE 
C  THAT  IS  NOT  INTERIOR  TO  THE  OTHER)  OF  TWO  GIVEN  FOLYGONS,  OR 
C  (2)  DETERMINES  WHAT  PORTIONS  OF  A  CHAIN  OF  LINE  SEGMENTS  LIE  ON 
C  THE  BOUNDARY,  INTERIOR,  OR  EXTERIOR  TO  A  GIVEN  POLYGON. 

C 

INTEGER  NOAP, NOBC, KALC 

REAL  APX ( NOAP ) , APY ( NOAF ) , BCX( NOBC ) , BCY ( NOBC ) 

C  xxxxxxxxxxxxxxxxxxxx  USER  SPECIFIED  VARIABLES  xxxxxxyxxxxxxxxxxxxxx 
C  APX  A  REAL  ARRAY  OF  THE  X  COORDINATES  OF  A,  THE  FIRST  POLYGON 

C  APY  A  REAL  ARRAY  OF  Y  COORDINATES  OF  THE  A  POLYGON 

C  NOAP  AN  INTEGER  COUNT  OF  THE  NUMBER  OF  POINTS  DEFINING  THE  A  POLYGON 
C  THE  POLYGON  CONSISTS  OF  LINE  SEGMENTS  FROM  APX(1),APY(1)  TO 

C  APX (2), APY (2)  TO  .  .  .  TO  APX ( NOAP ), APY ( NOAP )  TO  APX ( 1 ) , APY ( 1 ) 

C 

C  IF  KALC  IS  FOUR  OR  LESS: 

C  BOX  A  REAL  ARRAY  OF  THE  X  COORDINATES  OF  B,  THE  SECOND  POLYGON 

C  BCY  A  REAL  ARRAY  OF  Y  COORDINATES  OF  THE  B  POLYGON 

C  NOBC  AN  INTEGER  COUNT  OF  THE  NUMBFR  OF  POINTS  DEFINING  THE  B  POLYGON 
C  KALC  AN  INTEGER  SPECIFYING  THE  DESIRED  TYPE  OF  OVERLAY 
C  KALC  = 1  UNION  OF  A  AND  B 

C  KALC=2  INTERSECTION  OF  A  AND  B 

C  KALC=3  RELATIVE  DIFFERENCE  OF  A  TO  B  (A  INTERSECT  NOT  B) 

C  KALC=4  RELATIVE  DIFFERENCE  OF  B  TO  A  (B  INTERSECT  NOT  A) 

C 

C  IF  KALC  IS  GREATER  THAN  FOUR,  BCX, BCY  IS  AN  OPEN  CHAIN  OF  SEGMENTS 
C  (RATHER  THAN  A  CLOSED  POLYGON)  FROM  BCX( 1 > , BCY ( 1 )  TO  BCX ( 2 ) , BCY ( 2 ) 

C  TO  ...  TO  BCX ( NOBC ), BCY (NOBC) 

C  KALC=5  SUBCHAINS  OF  B  ON  THE  BOUNDARY  OF  A 

C  KALC  =  6  SUB  Cl  !.A  I  NS  OF  B  EXTERIOR  TO  A 

C  KALC- 7  SUBCHAINS  OF  B  INTERIOR  TO  A 

C  KALC=8  SUBCHAINS  OF  B  EXTERIOR  TO  OR  ON  THE  BOUNDARY  OF  A 

C  KALC  =  9  SUBCHAINS  OF  8  INTERIOR  TO  OR  ON  THE  BOUNDARY  OF  A 

C 

c 

l NTEGER  WRKMAX , WORK ( WRKMAX ) 

xxxxxxxxxxxxxxxxxxxxx  WORK  SPACE  x « » x * x x x x x x x x x x x x x x x x 

WORK  IS  A  REAL«4  ARRAY  OF  LENGTH  NOWORK .  THE  AMOUNT  OF  WORK  SPACE 
REQUIRED  CAN  BE  ESTIMATED  BY  THE  FORMULA  N0AP+N0BC+6*K +2  WHERE  K 
IS  THE  MAXIMUM  NUMBER  OF  I NTERS  ECT I ONS  EXPECTED. 

WRKMAX  THE  INTEGER  LENGTH  OF  THE  WORK  ARRAY. 


xxxxxxxxxxxxxxxxxxxx  RESULT  VARIABLES  xxxxxxxxxxxxxxxxxxxx 
I NTEGER  NORC , I NORC ( 2 , NORC ) 

REAL  RCX ( I ) , RCY ( 1 ) 

NORC  AN  INTEGER  COUNT  OF  THE  NUMBER  OF  CHAINS  IN  THE  OVERLAY. 

N0RC=0  MEANS  NO  RESULT  CHAINS  HAVE  BEEN  CALCULATED.  EITH  1)  NO 
RESULT  EXISTS  OR  2)  THE  RESULT  IS  THE  SAME  AS  THE  ORIGINAL  DATA. 
NORC  IS  ALSO  AN  ERROR  INDICATOR  FOR  THE  FOLLOWING  TYPES  OF  ERRORS 
NORC= - 1  THE  TWO  DATA  CHAINS  ARE  NOT  SIMPLY  CONNECTED  AT 
A  POINT  OF  INTERSECTION. 

NORC<  - 1 0  WORK  SPACE  IS  OF  INSUFFICIENT  SIZE. 


I NORC  AN  INTEGER  MATRIX  DIMENSIONED  (2, NORC)  WHERE  NORC  IS  THE 
NUMBER  OF  CHAINS  IN  THE  RESULT.  INORC(1,l)  IS  THE  OFFSET  OF  THE 
INDEX  FOR  THE  I TH  CHAIN  OF  THE  RESULT  IN  THE  RCX,  RCY  ARRAYS. 
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I NORC( 2,1)  IS  THE  NUMBER  OF  POINTS  IN  THE  I TH  CHAIN  OF  THE 
RESULT. 

RCX  A  REAL  ARRAY  FOR  THE  X  COORDINATES  OF  THE  CHAIN(S)  OF  THE 

RESULT.  THE  X  COORDINATES  OF  THE  I TH  CHAIN  ARE  RCX ( K+ 1 > , RCX < K+2 > , 
RCX ( K+3 ) ,  ...  , RCX C K+L )  WHERE  K= I NORC( 1 , I >  AND  L= I NORC ( 2 ,  I  )  . 

RCY  A  REAL  ARRAY  FOR  THE  Y  COORDINATES  OF  THE  RESULT  CHAIN(S). 

A  DOUBLE  PRECISION  TO  REAL  FUNCTION,  ROUND(X),  IS  CALLED  BY 
THE  SUBROUTINE  I UCALC 

1  N0RC=0 

CALL  I USUB 1 ( APX . APY , NOAP , BCX , BCY , NOBC , KALC , WORK ( 1 ) , WORK ( 1 ) , WRKMAX , 
&  NONXT , NORC ) 

I F ( NORC  . LT ,  0) RETURN 

CALL  I USUB2 ( APX , APY , I ABS ( NOAP ) , BCX , BC Y , I ABS ( NOBC ) , KALC , 

5  WORK ( 1 ) , WORK( 1 ) .WRKMAX, NONXT, WORK! 2* NONXT+1 ) , 

6  NORC ,  I NORC ,  I  NOMAX , RCX , RCY , NRCMAX ) 

RETURN 

END 

SUBROUTINE  1 USUB 1 ( X , Y , NAS , U , V , NBS , OTYPE , NXT , XYT , NWORK , NONXT , ERROR) 
D I  MENS ION  X (  1  ) , Y (  1) , U (  1) , V (  1) 

INTEGER  OTYPE 

XYT  A  REAL  MATRIX  DIMENSIONED  BY  <2, MAXI)  FOR  STORAGE  OF  THE  X  AND  Y 
COORDINATES  OF  THE  INTERSECTION  POINTS  NOT  OCCUR  I NG  AT  THE 
DEFINING  POINTS. 

REAL  XYT ( 2, 1 ) 

NXT  AN  INTEGER  MATRIX  DIMENSIONED  BY  (2.MAX3)  WHERE  MAX3  EQUALS 
( NA+NB+TW I CE  THE  NUMBER  OF  INTERSECTIONS  NOT  OCCURING  AT  THE 
DEFINING  POINTS) . 

INTEGER  NXT ( 2 , 1 ) 

INTEGER  ERROR 

ERR0R=-I1  XT , YT  OVERRUN 

ERR0R=-12  SEG  OVER-RUN 

ERROR= -  1 3  NXT  OVER-RUN 

LOG  1  CAL  ASENSF , BSENSE , SENSE .  I NTER , BSTEMP 

DOUBLE  PRECISION  ZERO, ONE 

OOUBLE  PRECISION  AX , AY , BX , BY , B2 , OX , DY , 

*  AXB, AXD.BXD, D,Q, DM I N, DOT JM , DOT JNM , DOT JN , DOT JNN 
DATA  ZERO/O. DO/, ONE/ 1  DO/ 

DATA  ASENSE/ . TRUE  / , BSENSE/ . TRUE, / 

NA  = 1 ABS ( NAS ) 

NB  = I ABS( NBS ) 

NX Y END  =  NWORK / 2+ 1 
BSTEMP = BSENSE 

I F ( OTYPE  .LE.  4  AND.  NAS  GT .  0 > ASENSE = SENSE < X , Y , NA ) 

I F ( OTYPE  .LE.  4  .AND.  NBS  GT,  0 ) BSENSE = SENSE ( U , V , NB ) 

NBT  =  NB 

I F ( OTYPE  .GT  4 ) NBT  =  NB -  1 
I F ( OTYPE  .EQ  3 >BSENSE= . NOT . BSENSE 
I F ( OTYPE  .EQ.  4 )ASENSE= . NOT . ASENSE 
I F ( OTYPE  GT.  4 )BSENSE= . TRUE . 

NONXT  =  0 
NXYT  =  0 
DO  5  1=1, NA 

I F ( .NOT. ASENSE )NXT( 2, I )=MOD< l+NA-2,NA)+l 
I F ( ASENSE ) NXT ( 2 , I >=MOD< I , NA ) + I 
I F ( X ( I )  EQ  X( NXT (2,1))  AND. 
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DO  tO  I  =  t  ,  NB 

I F ( BSENSE ) NXT ( 2 ,  l+NA)=MOD< I  , NB ) +NA+1 

IF! .NOT. BSENSE) NXT (2, l+NA>=MOD! 1 +NB -2, NB ) +NA+ 1 

1F( U( I )  ,EQ.  U ( NXT (2,1 +NA ) -NA)  .AND. 

&  V ( 1 )  . EQ .  V!NXT< 2, I +NA) -NA) )GQ  TO  403 

10  NXT ( 1 , 1 +NA ) = I +NA 
BSENSE =BS TEMP 
NONXT  =  NA+NB 

J=1 

XJN=X( 1  ) 

Y  JN  =  Y  <  1  ) 

DO  65  1=1, NBT 
N=NXT ( 2, I +NA ) 

UOLD=U( ! ) 

VOLD=V( 1 ) 

NOLD= I +NA 

START  OF  LOOP  ON  J 

11  BX  =  U ! N-NA ) -UOLD 
BY=V( N-NA ) -VOLD 
B2=BX«*2+BY*«2 

I NTER= . FALSE. 

14  XJ=XJN 

Y  J  =  Y  JN 
JN=NXT ( 2, J ) 

I F ( JN  .LE.  NA ) GO  TO  20 
JZ= -NXT ( 1 , JN) -NA-NB 
1F(JZ  .LE.  0 ) GO  TO  16 
XJN=XYT ( 1 , NXYEND-JZ) 

YJN=XYT(2, NXYEND-JZ) 

GO  TO  22 
16  JZ= JZ+NB 
X JN=U ( JZ ) 

YJN=V( JZ) 

GO  TO  22 
20  XJN=X( JN) 

YJN=Y( JN) 

22  DX=XJ -UOLD 
DY  =  Y J “VOLD 
AX=XJN-XJ 
AY  =  Y  JN- Y  J 
AXB=AX*BY-AY»BX 
BXD=BX*DY -BY  »DX 
IFtAXB  EQ.  ZERO) GO  TO  30 
Q=BXD/AXB 

IF(Q  LE.  ZERO  .OR.  Q  .  GT  .  ONE)GO  TO  45 
AXD  =  AX*DY -AY  »DX 
D= AXD/AXB 

IF<0  LE.  ZERO  OR,  D  GT.  ONEIGO  TO  45 
K  =  0 
L  =  0 

XI  =  ROUND!  UOl.D+D*BX  ) 

Y I = ROUND! VOLD+D*BY ) 

IF! XI  .NE.  UOLD  .OR.  Yl  . NE .  VOLD) GO  TO  24 
K=NOLD 

24  I F I X I  NE.  U(N-NA)  OR  Yl  . NE .  V(N-NA))GO  TO  26 
K  =  N 

26  XP= ROUND (XJ+Q*AX) 

YP  =  ROUND! Y  J+Q«AY ) 

IF(XP  .NE.  XJ  OR.  YP  NE.  YJ)GO  TO  28 


no  onnn  ooo  n  on 


T’ 


L  =  J 

28  I F  <  XP  .NE.  XJN  .OR.  YP  . NE .  YJN)QO  TO  40 
L  =  JN 

GO  TO  40 

30  IFfBXD  .NE,  ZERO) GO  TO  45 
K  =  0 
L  =  0 


DOT  JM  =  DX*BX+DY  *BY 

DOT JNM* ( XJN-UOLD ) *BX  +  < Y  JN-VOLD) *BY 
DOT  JN* ( X J - U ( N-NA ) ) *BX  + ( Y J - V ( N - NA ) >«BY 
DOTJNN* (XJN-U(N-NA) ) *BX+ ( Y JN- V ( N-NA ) )*BY 
IS  J  OUTSIDE  M-N  AND  JN  OUTSIDE  M-N  AND 
N  OUTSIDE  J-JN  AND  M  OUTSIDE  J-JN 
I F ( DOT JN* DOT  JM  . GT ,  ZERO  .AND.  DOT JNM* DOT JNN  GT  .  ZERO  .AND. 

S  DOT  JN* DOT  JNN  . GT .  ZERO  AND.  DOT  JM*  DOT  JNM  .  GT  .  ZEROIGO  TO  45 
IS  N  INSIDE  J-JN  AND  M  INSIDE  J-JN 
I F ( DOTJN*DOT JNN  . LE .  ZERO  .AND.  DOTJM*DOTJNM  .  LE  ZEROJGO  TO  36 
IS  J  OUTSIDE  M-N  AND  JN  INSIDE  M-N 
OR  J  INSIDE  M-N  AND  JN  INSIDE  M-N 
AND  JN  RATHER  THAN  J  FURTHER  FROM  M 
I F ( DOT  JM*D0T  JN  . GE .  ZERO  .AND.  DOT JNM* DOT JNN  . LE  ZERO  .OR. 

*  DOT  JM*DOT  JN  . LE .  ZERO  .AND.  DOT  JNM*  DOT  JNN  . LE .  ZERO  .AND. 

S  DOT  JNM  .GT.  DOTJM1GO  TO  38 
I F ( DOT  JM  .EQ.  ZERO) GO  TO  45 
D=DOTJM/B2 
L-J 

I F ( DOT  JN  . EQ .  ZERO ) K  =  N 
GO  TO  40 
36  D  =  ONE 
K  =  N 


I F ( DOT  JN  .EQ.  ZERO )  L  =  J 
I F ( DOT  JNN  EQ.  ZERO)L  =  JN 
GO  TO  40 

38  I F ( DOT  JNM  EG.  ZERO)GO  TO  45 
D*DOT  JNM/B2 


L  =  JN 


I F ( DOT  JNN  EQ.  ZERO)K*N 
40  1F( INTER  AND.  D  . GT .  DM  I N ) GO  TO  45 

1  F  ( K  NE.  0  AND.  NXT(1,K)  .  LT  .  0  .OR. 

*  L  .NE.  0  AND.  NXT ( I , L )  LT.  O'GO  TO  45 
DM  I N=D 
XM I  N  =  X  I 
YM I N= Y I 


KM  1 N  =  K 
LMI N=L 


J  I  =  J 


INTER* . TRUE 
45  J=NXT(2,J) 

I  F<  J  . NE  1  )G0 


TO  14 


END  OF  LOOP  ON  J 


IF(  NOT. INTER) GO  TO  65 

LINK  THE  NEW  POINT  INTO  THE  U,V  POLYGON 
IF1KMIN  .NE  0 ) GO  TO  54 
NONX  T  *  NONX  T  + 1 

I F ( 2*N0NXT  LE.  NWORK - 2* NXY T ) GO  TO  46 
ERROR* -  1 3 
GO  TO  402 
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46  I F ( LM ! N  .  GT.  0)GO  TO  52 
NXY  T  =NXYT+ 1 

IFtNXYT  .LE.  ( NWORK - 2*NONXT )  /  2 ) GO  TO  47 
ERROR = -  1 1 
GO  TO  402 

47  XYT ( 1 , NXY END- NXY T ) =XM 1 N 
XYT( 2, NXY END - NXY T ) =YM1 N 
NXT ( 1  , NONXT )  =  - NXY  T - NA - NB 
U0LD=XMIN 

V0LD=YM1N 
GO  TO  53 

52  NXT ( 1 , NONXT ) = - LM I N 
UOLD=X ( LM I N ) 

VOLD=Y(LMIN) 

53  NXT ( 2 , NONXT ) =NXT ( 2 , NOLD ) 

NXT ( 2 , NOLD ) =  NONXT 
NOLO=NONXT 

GO  TO  55 

54  NXT ( 1 , KM I N ) = -KM I N 

I F ( LM 1 N  GT.  0)NXT( 1 ,KM1N)=-LMIN 

LINK  THE  NEW  POINT  INTO  THE  X,Y  POLYGON 

55  I F ( LM I N  GT.  0)G0  TO  59 
NONXT  =  NONXT  + 1 

I F ( 2*NONXT  .LE.  NWORK - 2*NXY T > GO  TO  56 
ERROR= -  1 3 
GO  TO  402 

56  IFIKMJN  .GT.  0)GO  TO  57 
NXT ( 1  , NONXT ) = NXT ( 1  .NONXT-1  ) 

GO  TO  58 

57  NXT( 1 , NONXT )=-KMIN 

58  NXT ( 2 , NONXT ) =  NXT  (  2 ,  J  1  ) 

NXT (  2,  J  I ) = NONXT 

GO  TO  60 

59  NXT (  1  , LM I N )  =  -  NXT  < 1  , LM I N ) 

60  IFIKMIN  .NE.  N ) GO  TO  1 1 
65  CONTINUE 

402  CONTINUE 
RETURN 

403  ERROR= -  1 
GO  TO  402 
END 

SUBROUT  I NE  I USUB2 ( X , Y , NA , U , V , NB , ©TYPE , NXT , XY  T . NWORK , 

$  NONXT , SEG , NON I U , N I  US , N I  UMAX , X  I U . Y I U , NXYMAX ) 

DIMENSION  X(  NA)  ,  Y(  NA)  ,  U(  NB)  ,V(  NB)  •••' 

INTEGER  OTYPE 

SEG  AM  INTEGER  MATRIX  DIMENSIONED  <3,MAX2)  WHERE  MAX2-2  EQUALS  THE 
NUMBER  OF  INTERSECTIONS  OF  THE  TWO  FIGURES. 

INTEGER  NXT (2,1), SEG (3,1) 

REAL  XYT(2, I ) , X(U( I ) , Y IU( I ) 

INTEGER  N I  US ( 2 ,  1  ) 

INTEGER  N I  UMAX 
LOGICAL  I  DENT 
LOGICAL  PTS 
NSEG=0 

NXY  T  =  NONX  T  -  NA  -  NB 
I F ( OTYPE  .LE.  4) GO  TO  68 

I F ( NXT ( 1 , NA+ 1 )  .GT.  0 ) NXT ( 1 , NA+ 1 ) = -NXT ( I , NA+ 1) 

IFINXTI1 , NA+NB)  .GT.  0 ) NXT ( 1 , NA+NB )  = -NXT I  1 , NA+NB ) 
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GO  TO  69 

68  CALL  SEGDEF  ( IJ ,  V ,  NB ,  X ,  Y  ,  NA ,  0 ,  OTYPE , 

*  SEG , NSEG , NXT , NONXT , XY  T , NWORK ) 

I  Ft NSEG  . LT.  0)GO  TO  400 

69  CALL  SEGDEF ( X , Y , NA , U, V, NB , NA , OTYPE , 

$  SEG, NSEG, NXT, NONXT, XYT, NWORK) 

I F ( NSEG  LT.  0)G0  TO  400 
1  DENT  = . TRUE. 

DO  70  1=1, NSEG 

I F ( SEG (1,1)  .  NE.  4) 1DENT= . FALSE. 

I Z=SEG( 2, 1 ) 

1 F ( NXT ( 1 ,  I Z )  LT.  0 ) NXT ( 1 ,  I  2 )  =  -  NXT ( 1 ,  1 Z  ) 

70  CONTINUE 

I Z  =  SEG ( 3 , NSEG ) 

1 F ( NXT (1,12)  .LT.  0 ) NXT ( 1 ,  1 Z )  =  -  NXT (  1  ,  I Z ) 

TAKE  CARE  OF  UNION  AND  INTERSECTION  OF  IDENTICAL  POLYGONS 
AS  A  SPECIAL  CASE 

I  Ft  .NOT.  I  DENT  .OR.  OTYPE  .GT.  2) GO  TO  80 
NON I U= 1 

N I  US ( 2 , NON I U ) =  NB 
NIUSt 1 , NON 1 U ) =0 
DO  71  1  =1  ,  NB 

XI U( I ) =U( I ) 

71  YIU(  I  >  =V(  1  ) 

RETURN 

LINK  THE  SEGMENTS  ANO  GENERATE  THE  RESULT  VARIABLES 
80  CONTINUE 


89  N 1 U= 1 
NONI U=0 


c 

SEGt  1 

1  ) 

r 

i 

SEGMENT 

1  OF 

A 

IS 

ON  THE  BOUNDARY 

OF 

B 

c 

SEGt  1 

I  ) 

= 

2 

SEGMENT 

I  OF 

A 

IS 

OUTSIDE  B 

c 

SEGt  1 

I  ) 

= 

3 

SEGMENT 

1  OF 

A 

IS 

INSIDE  B 

c 

SEGt  1 

1  ) 

= 

4 

SEGMENT 

I  OF 

B 

IS 

ON  THE  BOUNDARY 

OF 

A 

c 

SEGt  1 

I  ) 

= 

5 

SEGMENT 

1  OF 

B 

IS 

OUTSIDE  A 

c 

SEGt  1 

1  ) 

= 

6 

SEGMENT 

1  OF 

B 

IS 

INSIDE  A 

90 

DO  100  1=1, NSEG 

GO  TO  <91,92, 

,93,94,95, 

96,97,98 

,  99) 

, OTYPE 

91 

IFtSEGt 1,1) 
GO  TO  100 

.  EQ. 

2 

OR 

.  SEGt 1 . 

1  )  . 

EQ. 

5)  GO 

TO 

1  10 

92 

IFtSEGt 1,1) 
GO  TO  100 

.  EQ. 

3 

.OR 

.  SEGt 1 , 

1  )  . 

EQ. 

6  )G0 

TO 

1  10 

93 

IFtSEGt 1,1) 
GO  TO  100 

.  EQ. 

2 

.OR 

.  SEG ( 1 , 

1  )  . 

EQ. 

6)  GO 

TO 

1  10 

94 

IFtSEGt 1,1) 
GO  TO  100 

.  EQ. 

3 

OR 

,  SEGt 1 , 

I  )  . 

EQ. 

5)  GO 

TO 

1  10 

95 

IFtSEGt 1,1) 

.  EQ. 

4  )  GO 

TO  1  10 

GO  TO  100 

96 

IFtSEGt 1,1) 

.  EQ. 

5)  GO 

TO  1  10 

GO  TO  100 

97 

IFtSEGt 1,1) 

.  EQ. 

6)  GO 

TO  1  10 

GO  TO  100 

98 

IFtSEGt 1,1) 
GO  TO  100 

.  EQ. 

4 

.OR 

.  SEGt  1  , 

I  )  . 

EQ. 

5)  GO 

TO 

1  10 

99 

IFtSEGt 1,1) 

.  EQ. 

4 

.OR 

.  SEGt  1  , 

1  )  . 

EQ. 

6)  GO 

TO 

1  10 

100 

CONTINUE 

RETURN 

1  10 

1 P  =  SEGt  2, 1  ) 

I  1 =NXT (  I  ,  IP) 
NON I U=NON 1 U+ 1 
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I F ( NON I U  .GT.  Nl UMAX ) GO  TO  400 
111  PTS=. FALSE. 

N 1  US ( 1 , NON 1U)  =  NIU-1 
N I  US ( 2 , NON 1  U )  =  0 

120  ] F ! I P  . EO .  SEG( 3, 1 )  .AND.  NXTC1.IP)  .  EQ  II  AND.  PTS1G0  TO  310 
N I  US  <  2 ,  NON 1 U  >  =  N I  US  <  2 , NON  I U )  + 1 

121  IFCNIU  . GT.  NXYMAX )G0  TO  400 

CALL  PNTGET (  X,  Y  ,  NA ,  U,  V, NB , XYT ,  NWORK  , NXT ( 1 ,  IP), 

&  XIU(NIU) , YIU(NIU) ) 

Nl U=NI U+1 
PTS= . TRUE . 

I F ( I P  . EO .  SEG(3,I)  AND.  SEG(2,I>  .NE.  SEG(3,I))G0  TO  125 

122  1 P=NXT ( 2 , IP) 

GO  TO  120 

125  I F ( OTYPE  .GT.  4) GO  TO  310 
DO  160  J=1 , NSEG 
JP=SEG( 2, J ) 

I F ( J  .NE.  I  .AND.  SEG (1,1)  . EO .  SEG(1,J)  .AND. 

S  NXT<1,IP)  .EQ.  NXT ( 1 , JP ) ) GO  TO  300 
160  CONTINUE 

DO  180  J=1 , NSEG 
JP=SEG( 2, J ) 

I F ( NXT C 1 , I P )  .NE,  NXT ( 1 , JP ) ) GO  TO  180 
GO  TO  ( 171 , 172, 173, 174) .OTYPE 


171 

1 F ( SEG ( 1 , J) 
GO  TO  180 

.  EQ. 

2 

.OR. 

SEG ( 1 , J) 

.  EQ. 

5)  GO 

TO 

300 

172 

IF(SEG< 1 , J) 
GO  TO  180 

.  EQ. 

3 

.OR. 

SEG ( 1 , J) 

.  EQ. 

6)  GO 

TO 

300 

173 

1 F ( SEG ( 1 , J) 
GO  TO  180 

.  EQ. 

2 

.  OR. 

SEG( 1 , J) 

.  EQ. 

6)  GO 

TO 

300 

1  74 

IF(SEG( 1 , J) 

.  EQ. 

3 

.  OR. 

SEG  C 1 , J ) 

.  EQ. 

5  )GO 

TO 

300 

180  CONTINUE 

DO  190  J=1 , NSEG 
JP=SEG<2, J) 

I F ( NXT (  1  ,  I  P )  ,EQ.  NXT(I.JP)  .AND.  SEG(1,J)  . GT .  0)GO  TO  300 
190  CONTINUE 
NON I U= -2 
GO  TO  402 

300  SEG ( 1 , 1 ) =-SEG< 1,1) 

1 P  =  SEG<  2, J ) 

1=J 

GO  TO  122 

310  SEG ( 1 , I ) = -SEG ( 1 , I ) 

GO  TO  90 
400  NON I U- -  1 2 
402  RETURN 
END 

LOGICAL  FUNCTION  SENSE(X,Y,N) 

SENSE  IS  TRUE  IF  THE  X,Y  POLYGON  CLOSES  CLOCKWISE,  FALSE  IF 
IT  CLOSES  COUNTERCLOCKWISE 

INTEGER  N 
REAL  X(N) ,Y(N) 

DOUBLE  PRECISION  TSUM 
I F ( N  LT.  3 )  RETURN 
TSUM=0. DO 
AY=Y(2) -Y( 1 ) 

AX  =  X ( 2) -X ( 1  ) 

DO  2  J=3, N 
BY  =  Y  <  J ) -Y ( 1  ) 


ooooooooooooooooooo 


BX*X( J ) -X( 1  ) 

TSUM=TSUM+BY«AX-AY*BX 
AX  =  BX 
2  AY  =BY 

SENSE*. FALSE. 

1 F ( TSUM  .LT.  0 . 00 ) SENSE* . TRUE . 

RETURN 

END 

SUBROUT  1 NE  SEGOEF ( X , Y , NXY , U , V , NUV , OFFSET , OTYPE , 
*  SEG, NSEG, NXT, NONXT, XYT, NWORK ) 


SEGDEF  GENERATES  THE  SEG  MATRIX.  A  SEGMENT  IS  A  SERIES  OF 
SUCCESSIVE  SIDES  OF  ONE  OF  THE  POLYGONS  ALL  LYING  ALL  INSIDE  OR 
ALL  OUTSIDE  THE  OTHER  POLYGON,  OR  A  SIDE  OF  ONE  POLYGON  LYING  ON 
THE  BOUNDARY  OF  THE  OTHER.  IF  THE  POLYGONS  INTERSECT,  THE  END 
POINTS  OF  THE  SEGMENTS  LIE  OF  THE  BOUNDARY  OF  THE  OTHER  POLYGON. 
IF  THE  POLYGONS  DON'T  INTERSECT  OR  ARE  IDENTICAL,  EACH  POLYGON  IS 
A  SINGLE  SEGMENT.  EACH  TRIPLET  OF  THE  SEG  MATRIX  DEFINES  A 

THE  FIRST  NUMBER  IN  THE  1 TH  TRIPLET  CONTAINS  A  CODE: 


SEGMENT. 
SEGI 1,1)  = 


OF 
OF 
OF 
OF 
OF 
OF 

SEG (2, I)  IS  THE  INDEX  IN  THE  NXT 
SEGMENT  1.  SEG (3,1)  IS  THE  INDEX 
POINT  OF  SEGMENT  I . 


SEG(  1 
SEG(  1 
SEG<  1 
SEG  (  1 
SEGI  1 


I  ) 
I  ) 
I  ) 
1  ) 
I  ) 


1 

2 

3 

4 

5 

6 
IS 


SEGMENT 

SEGMENT 

SEGMENT 

SEGMENT 

SEGMENT 

SEGMENT 


IS 
IS 
I  S 
IS 
IS 
IS 


ON  THE  BOUNDARY  OF  B 
OUTSIDE  B 
INSIDE  B 

ON  THE  BOUNDARY  OF  A 
OUTSIDE  A 
INSIDE  A 

ARRAY  OF  THE  FIRST  POINT  OF 
IN  THE  NXT  ARRAY  OF  THE  LAST 


1 NTEGER  NXY , NUV , OFFSET , NSEG , NXY T , OTYPE 
INTEGER  ENSYD2 

REAL  X I NXY ) , Y I NXY ) , U I NUV ) , V  t  NUV ) 

INTEGER  NXT (2,1), SEG (3,1) 

REAL  XYT ( 2 , 1 ) 

LOGICAL  SUMLNK 
INTEGER  SOLD 

MAX2  = ( NWORK - 2  *  NONXT 1*2/3 
KK  =  2 

I F ( OFFSET  .NE.  0)KK=5 
SUMLNK* . FALSE. 

I OLD=OFFSET+ 1 
MSTART  * I  OLD 
NSTART  = 1 

I F( OFFSET  .EQ.  0 ) NSTART=NUV+1 
I  OF  =  -  1 

I F ( NXT (1,1  OLD )  .GT.  0)G0  TO  40 
SUMLNK* . TRUE. 

SOLD* I  OLD 
MSTART* I  OLD 

I F ( OTYPE  .GT.  4 ) MSTART* NXY  +NUV 
40  INEW=NXT(2, 10LD) 

IF(NXT< 1 ,  I  NEW)  .LT.  0) GO  TO  42 

1F(  .NOT. SUMLNK  .OR.  I  OF  . GE .  0) GO  TO  49 

I OF  =  ENSYD2 ( DBLE ( U ( I  NEW -OFFSET) ) , OBLEI V( I  NEW-OFFSET) ) , X, Y , NXY) 
GO  TO  49 

42  I F( SUMLNK )G0  TO  43 
MSTART* I  NEW 
SUMLNK*. TRUE. 

SOLD* I  NEW 

GO  TO  60 

43  NSEG*NSEG+ 1 
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! F ( NSEG  . 6T .  MAX2)G0  TO  51 
SEG(2,NSEG)=SOLD 
SEGC3, NSEG)  =  1  NEW 
SOLD= I  NEW 

I  F(  I  OF  . LT.  0)GO  TO  45 
SEGC 1 , NSEG) =KK+IOF 
1  OF=  -  1 
GO  TO  49 

45  I F (OFFSET  ,  EQ  .  0)G0  TO  46 

CALL  PNTGET <  X , Y , NXY , U , V , NUV ,  XY  T , NWORK , 

S  - NXT (1,1  OLD ) , XOLD , YOLD ) 

CALL  PNTGET ( X , Y , NXY , U , V , NUV , XY T , NWORK , 

5  - NX  T  (  1  ,  I  NEW )  , XNEW , Y  NEW ) 

GO  TO  47 

46  CALL  PNTGET ( U,V, NUV, X,Y, NXY, XYT, NWORK, 

$  -NXT( 1 ,  I  OLD ) , XOLO, YOLO ) 

CALL  PNTGET ( U , V , NUV , X , Y , NXY , XYT , NWORK , 

$  -NXT( 1  ,  I  NEW) , XNEW, YNEW) 

47  IOFMI D=ENSYD2( ( XOLO+XNEW ) /2D0 . ( YOLD+YNEW ) /2DO, X, Y, NXY ) 

473  I F ( ©TYPE  .GT.  4)GO  TO  484 

ILS=NSTART 
1 =NXT ( 2 , NSTART ) 

481  I F ( NXT (1,1 LS )  . EQ .  NXT  <1,1  OLD  >  AND  NXT(1,I>  .  EQ .  NXT(1,1NEW> 

8  .OR.  NXT (1,1)  .EQ.  NXT (1,1  OLD)  .AND.  NXTM.ILS)  . EQ .  NXT(1,!NEW)) 

6  GO  TO  482 
1  LS=  I 

1 =NXT ( 2, I ) 

I  F  (  1 LS  EQ.  NSTART ) GO  TO  484 
GO  TO  481 

482  1 OFM 1 D=  ~ 1 

484  SEP ( 1 , NSEG ) =KK+ I OFM 1 D 
49  1 F ( MSTART  . NE .  INEW)GO  TO  60 
I F(SUMLNK) RETURN 

I  OF  =  ENSYD2 ( DBLE ( U ( 1  )  )  , DBLE ( V ( 1  ) ) ,X, Y, NXY) 

NS£G=NSEG+1 

1 F ( NSEG  .  LE.  MAX2 ) GO  TO  52 

51  NSEG=-12 
GO  TO  53 

52  SEG ( 1  , NSEG ) =  KK+ 1  OF 
SEG ( 2 , NSEG ) =OFFSET+ 1 
SEG  (  3 ,  NSEG  )  =  SEG  <  2  ,  NSEG ) 

53  RETURN 

60  I OLD= 1  NEW 
GO  TO  40 

END  .  •  .  .  . . . 

INTEGER  FUNCTION  ENSY02 ( U , V , X , Y , N ) 

THE  FUNCTION  ENSYD2  IS  1  IF  THE  POINT  (U,V>  IS  INTERIOR  TO  THE 
X , Y  POLYGON  ENSY02  IS  0  OTHERWISE.  THE  POINT  (U,V)  IS  ASSUMED 
NOT  ON  THE  BOUNDARY  OF  THE  X,Y  POLYGON. 

INTEGER  N 
REAL  X ( N ) , Y ( N ) 

DOUBLE  PRECISION  U,V 
LOGICAL  BOOL 
ENSYD2*0 
BOOL* . FALSE. 

DO  10  I = 1 , N 
I N= 1 + 1 

I  F ( I N  . GT ,  N ) I N= 1 

I F ( Y ( IN)  EQ.  Y ( I )  AND.  X(IN)  . EQ .  X(I))GO  TO  10 
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IF(V  .LE.  Y(IN)  .OR.  V  .GT.  Y(l))GO  TO  5 

IF( (U-X< ] ) )*( Y( IN) -Y( I ) )-(V-Y( J ) )*<X( IN) -X( I ) )  LT.  0. DO) 
S  BOOL=. NOT. BOOL 
GO  TO  10 

5  I F < V  . GT .  Y(IN)  .OR.  V  .LE.  Y ( I  ) >G0  TO  10 

I F( <U-X( 1 ) )* ( Y< IN) -Y( I ) ) -<V-Y< I ) )*<X( I N) -X( I ) )  . GT .  O.DO) 
*  BOOL=. NOT. BOOL 
10  CONTINUE 

1 F ( BOOL ) ENSYD2= 1 

RETURN 

END 

SUBROUT  I NE  PNTGET ( X , Y , NA , U , V , NB , XYT , NWORK , K , A , B ) 

REAL  X< 1 ) , Y( 1 ) ,U( 1 ) , V< 1 )  ,XYT(2,  1  ) 

INTEGER  K. 

1F(K  .GT.  NA+NB ) GO  TO  20 
I F ( K  .GT.  NA ) GO  TO  10 
A=X(K) 

B=Y(K) 

GO  TO  30 
10  A=U(K-NA) 

B=V( K-NA ) 

GO  TO  30 

20  A=XYT( 1 , NWORK/2+1 -K+NA+NB) 

B=XYT(2, NWORK/2+1 -K+NA+NB ) 

30  RETURN 
END 

REAL  FUNCTION  ROUND (XI) 

DOUBLE  PRECISION  A,Y,X,X1 
REAL  B(2) ,C(2) 

EQUIVALENCE  ( B ( 1  ) , Y  )  ,  < A , C ( 1) ) 

X=DABS( XI ) 

ROUND=0. 0 

I F(X. EQ. 0. ODO)  RETURN 
Y  =  X 

C<  1  ) =B( 1  )  .  AND. 77770000000000000000B 
C ( 2 ) =B ( 2 ) .AND. 77770000000000000000B 
C<2)=  C  <  2 )  . OR . 00004000000000000000B 
RQUND-X+A 

IFCX1 .LT.O.DO)  ROUND = -ROUND 

RETURN 

END 
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